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?

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;

[Klaus01]

Hallo,

arbeitest Du mit den Indy FTP Komponenten?
Dort gibt es ein Ereignis OnWork dort könntest Du ein
Application.processMessages einbauen.

Oder Du lagerst Dein FTP Aufruf in eine Thread aus.

Grüße
Klaus

[SMERK]

Hallo!
Ja, arbeite mit Indy!
Habe shcon was in OnWork

Delphi-Quellcode:

procedure TUpload.FTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  StatusBar1.Position := AWorkCount;
end;

Was müsste ich denn da noch einbauen? Wofür ist eingentlich das "Application.processMessages "?
Gruß
Dominik

[Progman]

Application.ProcessMessages sorgt dafür, das die Anwendung angefallene Messages erhält und drauf reagieren kann (Mouse-Bewegungen, Klicks), einfach gesagt :-D

[RavenIV]

Zitat:

Zitat von SMERK

Wofür ist eingentlich das "Application.processMessages "?

Kennst Du die F1-Taste beim Delphi?
Kennst Du MSDN?
Kennst Du google?

Da kannst Du Dir die Frage selber beantworten...

[SMERK]

@Porgman: Danke für Deine NETTE Hilfe und Erklärung!

Klappt nun alles!