Hallo ich wollte mal einen Bot programmieren.
Da ich mit den Tastensimulationen erst angefangen habe würde ich gerne wissen was an meinem bisherigen Programm falsch ist...
Ich bekomme keine Fehlermeldung ; er zeigt mir lediglich die Showmessage nicht an
Code:
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;