Warten bis keine Teste mehre gedrückt wird...

[Michael Springwald]

Hallo,<br>
Ich möchte das wenn man z.B 5 Sekunden keine Taste mehr gedrückt wird das dann anfach z.B ein ShowMessage-Dialog kommpt<br>

Gruß <B>Michael</b>

[Tobias Beidermühle]

Hallo Michael,<p>nimm einen Timer und stelle den Interval auf 5000 für 5 Sekunden. Das OnTimer-Event kann dann so aussehen:<p><font face="Courier New"><b>procedure</b> TForm1.Timer1Timer(Sender: TObject);<br><b>begin</b><br>&nbsp;&nbsp;ShowMessage(<i>'Schlaf nicht ein!'</i>);<br><b>end;</b></font><p>Und dort, wo du die Tasteneingaben abfängst, startest du bei jedem Druck den Timer neu:<p><font face="Courier New"><b>procedure</b>TForm1.FormKeyPress(Sender: TObject; var Key: Char);<br><b>begin</b><br>&nbsp;&nbsp;Timer1.Enabled := false;<br>&nbsp;&nbsp;Timer1.Enabled := true;<br><b>end;</b></font><p>Ich hoffe mal, das hilft dir.<p>Tobia

[Michael Springwald]

Danke...<br>
Gruß <b>Michael</b&gt