Programm hängt sich auf ?

**SMERK**

Hallo!
Ich lade mit dem Quellcode Bilder auf nen FTP hoch! Aber wenn ich das mache und er ien gr. Bild hochlädt und ich dann das Fenster kurz wechsel, z.B: in den Exploerer und danach wieder in das Porgramm, dann wirkt es so, als wenn es sich aufgehängt hat, es läuft aber weiter! Wie kann man das machen, dass man wärend des uploads das prgramm trotzdem noch benutzen kann!? meinet wegen auch nur das fenster verschieben?

markieren

Delphi-Quellcode:

			procedure TForm1.Upload_ButtonClick(Sender: TObject); 

begin 

  Upload_Label.Visible := True; 

  dir := ShellListView1.SelectedFolder.PathName; 

  datei := ExtractFilename( ShellListView1.SelectedFolder.PathName); 

  FTP.Put(dir,datei); 

end;

Programm hängt sich auf ?

Programm hängt sich auf ?

Forumregeln