Fórum Como Ativar novamente um evento.. #177007

Como posso Ativar esse envento?

Ja ativei a opção KeyPreview..

Eu criei no evento on key down do form a função onde pressionando a tecla F2 no form ele envia uma menssagen, como posso ativar esse evento que criei no OnKeyDown do form, no show do form.no help descobri que este evento é um procedimento q possui os seguintes parametros: TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState) of object;

Como posso usar esse evento, no Show do Form? o que uso como paramentros para chamar o procedimento criado e mostrar a mensagen,´sem ter que implementala novamente no show´.

Segue abaixo um exemplo... seria mais ou men2os isso? e como posso fazer..

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If key=VK_F2 then
Showmessage(´Ok´);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Form1.OnKeyDown(?,?,?);
end;

Obs: Não quero implementar a menssagem duas vezes, apenas uma vez no OkeyDown, e chamar novamente em qualquer evento do form.