Timer wird Blockiert

[Mavarik]

Zitat von Int3g3r:

!

Es funktioniert nun. Quelltext sieht wie folgt aus:

Delphi-Quellcode:

//frmMain

while FormFtpprogress.Visible = true do  // Warte auf Timer
begin
   if FormFtpprogress.canHide = true then
         FormFtpprogress.Hide;
   Application.ProcessMessages;
end;

Application.Processmessages ist immer gruselig! Wenn es überschaubar ist, kann/funktioniert es erstmal, aber in komplexen Anwendungen sollte man darauf verzichten, da es ungewollte Seiteneffekte geben kann!

Macht dein FormFtpprogress wenn es angezeigt wird noch etwas "dynamisches"? Oder zeigt es nur eine statische Anzeige?

Mavarik

[DeddyH]

Ich würde die Logik auf Ereignisse umstellen, dann entfällt das ganze Polling-Geraffel. Soll heißen: die Klasse TFormFtpprogress bekommt ein Ereignis OnCanHideChanged spendiert, das gefeuert wird, sobald sich die CanHide-Eigenschaft (oder Variable) ändert. Das Hauptformular kann diesem Ereignis dann einen Handler zuweisen, der beim Eintreten ausgeführt wird.