Nabend,
ich hab zwar hier im forum und in google gesucht aber nichts gefunden... ich will einen timer machen und der soll dann immer nach ner gewissen zeit eine taste drücken.. die timer-befehle hab ich gefunden das klappt auch aber was muss ich nun schreiben damit z.b. nach 10 sekunden leertaste gedrückt wird... mein erster versuch:
Delphi-Quellcode:
var
Form1: TForm1;
i,m: Integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
Knopf: Integer;
begin
case m of
1: begin
Timer1.Interval := 1;
Knopf := VK_SPACE;
inc(m)
end;
2: begin
Timer1.Interval := i;
Label1.Caption := 'cool';
m := 1;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
i := StrToInt(edit1.Text);
Timer1.Enabled := true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
m := 1;
Timer1.Enabled := false;
end;
end.
funktoniert leider nicht ich habs getestet in icq da müsste ich ja dann leerzeichen schreiben .. hat jmd ne lösung? danke schonmal für die antworten
mfg
tommy