On "Esc" key press

[beginner81]

Can anyone there help me with this problem .. i'm intended to prompt out a msg dialog after the users press the "Escape" key.. so what's the code for it??
thx in advance..

 

[Spent]

On your form add this event

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (ord(Key)=27) then // if key is ESC
ShowMessage('your text');
end;
// a better message box is MessageDlg();



Good Luck !
Spent
mail:spentbg@yahoo.com

 

[LANThel]

Add this event in your form.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then ShowMessage('Esc key is press.');
end;

or

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then ShowMessage('Esc key is press.');
end;

Note: You can not use Virtual Keys (VK_) in KeyPress event.

FITZ
email: LANThel@go.com