Fenster wird nicht ausgeblendet

[kluckweb]

Hallo zusammen,

ich habe folgendes Problem:

Ich lade eine Datei per FTP hoch und blende in der Zwischenzeit ein "Bitte Warten" Fenster ein, dass automatisch geschlossen wird, wenn der Upload erfolgreich war.

Klickt man während des Uploads der Datei nun auf ein bereits geöffnetes Programm und arbeitet dort weiter, bleibt das "Bitte Warten" Fenster stehen und wird nicht mehr ausgeblendet.


Der Code ist folgender:

Delphi-Quellcode:

  BitteWarten.show;
  BitteWarten.Update;
  IdFTP1.Host := 'HOST' ;
  IdFTP1.Username := 'webXX';
  IdFTP1.Password := '123456';
  IdFTP1.Connect;
  BitteWarten.Update;
  IdFTP1.ChangeDir('/html/public/beitrag');
  idftp1.put('beitrag\'+daten.FieldbyName('id').asString+'.php',daten.FieldbyName('id').asString+'.php',false);

  BitteWarten.Update;
  IdFTP1.ChangeDir('/html/public/beitrag/pdf');
  idftp1.put('beitrag\pdf\pdf'+Daten.FieldbyName('id').asString+'.pdf','pdf'+Daten.FieldbyName('id').asString+'.pdf',false);
  BitteWarten.Update;

  IdFTP1.Quit;
  IdFTP1.Disconnect;
  BitteWarten.Close;

[kluckweb]

Hat keiner ne Idee, woran der Fehler liegen könnte?

[mkinzler]

Ich würde das Wartenfenster modal erstellen.

[himitsu]

Bist du sicher, daß dein Programm nicht einfach nur irgendwo hängen bleibt und daher erst garnicht beim BitteWarten.Close ankommt?

Jedenfalls sollte es so eigentlich auch funktionieren?

Aber du könntest es ja dennoch mal mit BitteWarten.Hide, ansatt BitteWarten.Close versuchen.

Zitat von mkinzler:

Ich würde das Wartenfenster modal erstellen.

Dann würde die Abarbeitung ja dort stehen bliben, aber er möchte ja werendessen die Datei uploaden.