Como executar a fun��o KeyPress via c�digo?

Question

Como eu fa�o isso? tipo como se fosse um button(FindComponent(�BtnSalvar�) as TButton).Click;como eu fa�o isso pra KeyPress;Desde j� agrade�o,...

Mkoch · Answer

S� uma pergunta, vc est� tentando fazer uma tecla de atalho para executar o c�digo do bot�o?
Se n�o pode ser algo como assim:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Label1.Caption := Edit1.Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Key: Char;
begin
  Edit1KeyPress(Sender, Key);
end;

Titanius · Answer

na realidade nao, eh q eu tenho um monte forms assim, aih queria que em uma unica tela, executasse o keypress deles.. :D...

F�rum Como executar a fun��o KeyPress via c�digo? #296005