Amigo, utiliza herança para isso.
Procura entender como funciona, e descobrirás a 8ª maravilha do mundo... hehe
Por cima:
Cria um form, coloca teu código no onKeyPress dele.
Depois quando fores criar outro, herda do primeiro, não do TForm.
É por aí... mas procura entender como funciona, pois tem muuuuiiiiita coisa boa
nisso.
Pra não dizer só coisa boa...
Att,
Celso Lorenzetti
Analista de Sistemas
msn: [EMAIL PROTECTED]
--------------------------------------------------------------
SysRS Tecnologia da Informação Ltda.
www.sysrs.com.br
----- Original Message -----
From: pcinfowave
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, March 28, 2007 12:40 PM
Subject: [delphi-br] Enter Tab
Ola, tenho um procedimento: MenuPrincipal.EnterTab;
procedure TMenuPrincipal.EnterTab(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
Perform(CM_DialogKey, VK_TAB, 0);
end;
end;
Que está no form principal da aplicação e gostaria de chamá-lo no
onkey press dos forms:
procedure TCnsCliente5.FormKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
MenuPrincipal.EnterTab;
end;
porem ao tentar usar ele, dá erro de: Not Enough actual parameters
O que eu preciso acrescentar na chamada do procedimento?
A intenção é trocar o tab pelo enter.
Se alguém puder ajudar, de já agradeço!
[]´s
Paulo
[As partes desta mensagem que não continham texto foram removidas]
