danke erstmal für die antworten...
Ja sry , aber es ist eine gute Aufgabe meine Delphi Kenntnisse in Tastensimulationen zu verbessern.
Aber wieso bekomm ich keine Message ausgespuckt?
Keine Ahnung ob Pressed den Wert 1 erhält ...
Hier nochmal der formatierte Quelltext:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
keypreview:=true;
pressed := 0
end;
TKeyEvent = procedure TForm1.FormOnKeyPress(Sender: TObject; var Key: Word;
Shift: TShiftState)of Object;
property OnKeyDown: TKeyEvent;
begin
if key = VK_F1 then Pressed:=1;
If Pressed=1 then Showmessage('Gut');
end;