hi
ich hab hier nen kleines testprogrämmchen in der console und möchte das wenn man escape drückt das programm sich schließt.
ich hab schonma bissel mit der suchfunktion nach onkeydown usw gesucht aber bin nicht wirklich fündig geworden.
d.h. ich hab zwar was eingebunden das er auch ohne fehler akzeptiert aber reagieren tut er trotzdem nicht:
Delphi-Quellcode:
program Project1;
uses windows, SysUtils, Classes, Forms;
{$apptype console}
type
TForm1 = class(TForm)
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = vk_escape then exit;
end;
begin
readln
end.
was mach ich falsch?
danke im voraus
Splinter