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;