Executar botão ToolButton

Delphi

28/09/2004

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


Neto

Neto

Curtidas 0

Respostas

Carlosfim

Carlosfim

28/09/2004

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;



GOSTEI 0
POSTAR