repeat-until-Schleife mit Tastendruck oder Mausklick beenden

mhsteuer · Beiträge: 23

Hallo,
kann mir mal jemand erklären, wie man eine repeat-until-Schleife solange laufen lassen kann, bis man eine Taste drückt (bzw. mit der Maus klickt)??? (wie keypressed in TP)

Danke Morten

_________________
Mittsommernacht

UGrohne · Verfasst: Di 23.09.03 11:03

Du musst einfach eine globale Bool-Variable cancel haben, dann einfach als Schleife:

markieren

Delphi-Quelltext

1:
2:
3:
4:

cancel=false;
repeat
   ....
   until cancel;

Mitten in der Schleife brauchst Du ein

markieren

Delphi-Quelltext

1:	application.ProcessMessages;

Jetzt machste nen Button, in dessen Click-Event Du cancel auf True setzt.

catweasel · Verfasst: So 14.03.04 23:27

Und wie macht man das wenn es ein Tastendruck sein soll...
Wie soll man da die Bool Vaiable auf den Abbruchwert bekommen ?

Catweasel

_________________
Pommes werden schneller fertig wenn man sie vor dem Frittieren einige Minuten in siedendes Fett legt.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Dann setzt Du die Variable im OnKeyPress-Ereignis auf true.

MfG
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

catweasel · Verfasst: Mo 15.03.04 00:10

Danke Peter. Habs gerade geschnallt.. Is schon etwas spät *augenzufall* :-)

Catweasel

_________________
Pommes werden schneller fertig wenn man sie vor dem Frittieren einige Minuten in siedendes Fett legt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme