Einzelnen Beitrag anzeigen

Benutzerbild von Tigger
Tigger

Registriert seit: 22. Sep 2004
Ort: Wedel
25 Beiträge
 
Delphi 7 Enterprise
 
#1

kein Zugriff auf Buttons während Routine ausgeführt wird

  Alt 1. Okt 2004, 13:32
Hallo zusammen!

Ich habe eine Routine, die verschiedene Zellen in einem StringGrid ändert.
Der Benutzer kann zu Beginn verschiedene Geschwindigkeiten wählen, um die
Simulation entsprechend zu verfolgen.

Während der Simulation soll es möglich sein, einen Stop- oder auch Pause-Button
zu drücken.

Im OnButtonClick der Buttons setze ich ein flag auf true, das ich dann jeweils
am Ende meiner Routine abfrage. Wenn flag gesetzt, dann exit, ansonsten durch-
laufe Routine mit neuen Parametern.

Leider ist es nicht möglich, während der Simulation die Buttons zu clicken.
Muß ich dazu noch irgendwas gesondert einstellen?

Code:
 
if flagPause or flagStop then exit
//ansonsten erneuter Aufruf mit neuen Parametern
else
begin
  sleep(varSleep); //warte, abhaengig von der eingestellten Geschwindigkeit
  bewegeZeiger(frm_simulation.sg_simulation.Cells[aktSpalte, 1], neuZustand);
end; //else
  Mit Zitat antworten Zitat