auf Taste warten

[Matrix Scripter]

Hallo!
Ich will das ein bestimmter Teil solange ausgeführt wird bis die ESC Taste gedrückt wird..
Wie könnte man das machen?

mfG Matrix Scripter

[Win32.API]

Hi,
man könnte das so machen:

Delphi-Quellcode:

while not boolean(getasynckeystate(27)) do
 begin
  Application.ProcessMessages;
  delay(10);
end;

delay

Win32.API

[Die Muhkuh]

Zitat von Win32.API:

Hi,
man könnte das so machen:

Delphi-Quellcode:

while not boolean(getasynckeystate(27)) do
 begin
  Application.ProcessMessages;
  delay(10);
end;

delay

Win32.API

Kann man das Application.ProcessMessages nicht weglassen, da es doch schon in der Delay-Funktion steckt?

[Win32.API]

Hi,
Ja eigentlich schon hatte es zuerst nur ohne delay...

Win32.API