Fórum Como implementar um procedimento criado no OnKeyDown? #176992

[b:feefc1e2ec]Como posso Ativar esse envento?[/b:feefc1e2ec]

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: [i:feefc1e2ec]TObject[/i:feefc1e2ec]; var Key: [i:feefc1e2ec]Word[/i:feefc1e2ec]; Shift: [i:feefc1e2ec]TShiftState[/i:feefc1e2ec]) 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.