Entwickler-Ecke

Sonstiges (Delphi) - Button als Start und Stop benutzen


Biarchiv - Sa 08.02.03 12:19
Titel: Button als Start und Stop benutzen
Hallo,

Ich habe eine repeat Schleife.
Wie kann ich aber abfragen ob der Button bei Stop gedrückt wurde.

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
Button1.Caption := '&Stop';

repeat
if (Button1.Caption = '&Stop') and ???? then exit; //Wie könnte ich das machen
// wenn der Button wieder gedrückt wird das er auf exit springt?

until
Button1.Caption := 'S&tart';

Danke.

Moderiert von user profile iconTino: Code-Tags hinzugefügt.


Delete - Sa 08.02.03 12:30
Mach dir eine globale boolsche Variable, die du mit dem Button immer umschaltest:

Quelltext 
1:
2:
3:
4:
5:
6:
 
var
  fStop: Boolean = FALSE;
...

// ButtonClick:
  fStop := not fStop


Und die Schleife:

Quelltext 
1:
2:
3:
4:
5:
 
repeat
  Application.ProcessMessages;
  ...;
  ...;
until fStop = TRUE;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!