Einzelnen Beitrag anzeigen

Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
525 Beiträge
 
FreePascal / Lazarus
 
#7

AW: Timer wird Blockiert

  Alt 28. Jun 2019, 11:09
Im Prinzip möchte ich im DoSomething nur warten bis das FormProgress geschlossen wurde. Danach den DoSomehting weiter ausführen.

Danke für die Hilfe.
Warum fragst du im Timer dann nicht genau diesen Status ab?

Delphi-Quellcode:
//Nur als Beispiel!!
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.show;
  Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not Form2.Visible then
  begin
    //Es wurde geschlossen oder ausgeblendet
    Timer1.Enabled := False;
  end;
end;
Der Weg ist das Ziel aber man sollte auf dem Weg niemals das Ziel aus den Augen verlieren.
  Mit Zitat antworten Zitat