Obrigado jackson, consegui desta maneira. procedure TfrmOrcamentoPadrao1.btnCopiaClick(Sender: TObject); var Key: Char; begin inherited; key := #13; PesquisaOrcamento(btnCopia,key); end; ---------------------------------------------------------------------------------------- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe
http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com ---------------------------------------------------------------------------------------- --- Em seg, 7/7/08, Jackson Gomes - Tools&Comps <[EMAIL PROTECTED]> escreveu: De: Jackson Gomes - Tools&Comps <[EMAIL PROTECTED]> Assunto: Re: [delphi-br] Procedure OnKeyPress no OnClick Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 7 de Julho de 2008, 14:40 \> Mas estou pecando no parâmetro Object, alguém ai tem alguma dica? Use Sender; Jackson Gomes Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: [EMAIL PROTECTED] ps.com Fone: 27 3389 1138 - 8811 0324 ------------ --------- --------- --------- --------- --------- - Devhost - Webhost para desenvolvedores Borland http://www.devhost. com.br [EMAIL PROTECTED] com.br Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]