|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Aktion auslösen, solange Taste gedrückt wird?
7. Okt 2009, 23:41
Hi,
Jo mit nem Timer würde es z.B. gehen.. Pseudocode:
Delphi-Quellcode:
if TasteGedrückt then
begin
Timer.Ausschalten;
i := 0;
while TasteGedrückt do
begin
inc(i);
Form1.Caption := IntToStr(i); // z.B.
Form1.Repaint;
end;
i := 0;
Timer.Anschalten;
end;
 GetAsyncKeyState wäre dazu noch interessant.
Gruß
Neutral General
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|