Como executar a função KeyPress via código?

Delphi

19/09/2005

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,


Titanius

Titanius

Curtidas 0

Respostas

Mkoch

Mkoch

19/09/2005

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;



GOSTEI 0
Titanius

Titanius

19/09/2005

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


GOSTEI 0
POSTAR