Endlosschleife unterbrechen

[gangs-taas]

hey,
ich hab eine frage ^^
wenn ich auf einen Button klick beginnt eine Endlosschleife.
Ich möchte, dass diese aufhört, sobald ich auf eine bestimmt taste auf der Tastatur
z.b. '.' drücke.
ich weiß abern icht wie ich das hinbekommen soll...
ich hoffe ihr versteht mein problem und könnt mir helfen ^^

[mkinzler]

Dazu müsste man wissen, wie die Endlosschleife entsteht (Code)

[uwewo]

Für was benötigst Du überhaupt eine Endlos Schleife???

[gangs-taas]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Tags := 1  ;
  sleep(1000);
  Repeat
    keybd_event(Ord('Y'), 0, 0, 0);
    keybd_event(Ord('Y'), 0, KEYEVENTF_KEYUP, 0);
  Until Tags = 1000 ;
end;

also ich möchte, dass er hat solange y drückt bis ich auf den . drücke und dann erst wieder mit dieser schleife anfängt wenn ich wieder auf button1 drücke ...


EDIT
es ist ja nicht absichtlich ne endlosschelife. Sie soll ja enden ich das durch den '.' bestimme ...

[mkinzler]

Und woe änderst du Tags?

[gangs-taas]

naja eigendlich wollte ich das durch nen klick auf einen zweiten button ändern aber das geht nicht weil das ständige 'y' drücken verhindert, dass ich wieder in das programm komme => ich kann nicht auf den button drücken ...
und deswegen hab ich mir überlegt das irgendwie aders zu machen z.b. mit druck auf eine bestimmte taste ...
und da weiß ich nicht wie ich das machen soll...

[mkinzler]

da du die Methode nicht mehr verlässt, werden die Events der anderen Buttons auch nicht mehr ausgelöst.

[gangs-taas]

hast du ne idee wie ich es denn dann beenden kann ?

[mkinzler]

Die ganze Sache anders lösen.

[gangs-taas]

hm.. ich weiß nicth wie xD

aber trotzdem danke für denn tipp
so nun muss ich wieder off gehn

wenn dir oder anderen noch was hilfreiches einfällt wäre ich sehr dankbar ^^