Fórum Executar botão ToolButton #252451
28/09/2004
0
Estou usando em meu sistema um menu com botões ToolButton.
Um desses botões executa a seguinte procedure:
procedure TFrM1000.ToolButton1Click(Sender: TObject);
begin
Executa comandos .....
end;
Gostaria que em determinado campo Edit ao pressionar enter fosse executada a procedure acima.
Como posso fazer isso??
Obrigado.
Neto
Um desses botões executa a seguinte procedure:
procedure TFrM1000.ToolButton1Click(Sender: TObject);
begin
Executa comandos .....
end;
Gostaria que em determinado campo Edit ao pressionar enter fosse executada a procedure acima.
Como posso fazer isso??
Obrigado.
Neto
Neto
Curtir tópico
+ 0
Responder
Posts
28/09/2004
Carlosfim
Basta (no evento onKeyPress do edit desejado) você verificar se o enter foi pressionado e então chamar o método normalmente:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
ToolButton1Click(Sender);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)