Einzelnen Beitrag anzeigen

Benutzerbild von meg91
meg91

Registriert seit: 25. Apr 2006
131 Beiträge
 
Turbo Delphi für Win32
 
#1

Prozedur erst bei bestimmten Wert einer Variable fortsetzen

  Alt 11. Nov 2006, 15:27
Hi
im Titel steht eigentlich schon das Wichtigste, aber hier nochmal mein konkretes Problem
ich möchte, dass wenn man das Programm schließst, erst ein Timer gestartet wird, welche ein Integer runterzählt
und erst wenn dieser einen bestimmten Wert hat soll das Programm zu gehn
Delphi-Quellcode:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canclose := false;

  CheckBox4.Checked := true;
  TrackBar5.Position := 1;

  dimLEDs(0,0,0);

  //hier soll gewartet werden bis der Integer 0 ist

  CanClose := true;
  Form1.Close;
end;
die einzige Möglichkeit, die mir eingefallen ist einfach noch nen Timer zu starten und dann mit dem immer wieder zu schauen ob der Integer schon 0 ist, wobei ich das nicht ganz so toll finde, da in meinem Programm schon 4 Timer von haus aus mitlaufen

Gibt es da nicht noch eine schönere Lösung?

Gruß
Markus
  Mit Zitat antworten Zitat