Abarbeitung in einer Funktion ist unlogisch

[SMERK]

Hallo

Ich habe da mal eine Frage. Ich arbeite an einem kleinen FTP Programm, dass klappt auch alles, aber wenn eine datei hochgeladen werden soll, dann soll vorher ein Label sichtbar werden und dann die Datei hochgeladen werden. Jetzt ist es aber so, dass erst die Datei hochgeladen wird und dann das Label sichtbar wird, wieso ist das so?

Gruß
Dominik

[DeddyH]

Ohne etwas Code kann man da herzlich wenig zu sagen. Evtl. fehlt ein Application.ProcessMessages vor dem Upload?

[SMERK]

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;

[Gruber_Hans_12345]

probiers mal so ...

Zitat von SMERK:

Delphi-Quellcode:

procedure TForm1.Upload_ButtonClick(Sender: TObject);
begin
  Upload_Label.Visible := True;
  Application.ProcessMessages;  // dem Programm auch zeit geben das label anzuzeigen
  dir := ShellListView1.SelectedFolder.PathName;
  datei := ExtractFilename( ShellListView1.SelectedFolder.PathName);
  FTP.Put(dir,datei);
end;

[SMERK]

WOW! Das ging fix! Danke, klappt nun alles wie erwünscht!!!

[peschai]

Hallo
Als Ergänzung:
Anstelle Application.ProcessMessages; sollte auch Form1.Update; funktionieren. (...Form1, wo das Label eingebunden ist).

[jbg]

Zitat von peschai:

sollte auch Form1.Update; funktionieren.

Und vor allem ermöglicht es Update nicht, wie Application.ProcessMessages unvorhergesehene Ausführungswege zu bestreiten. Denn mit einem Application.ProcessMessages ermöglicht man dem Benutzer sämtliche nicht ausgegraute Controls zu bedienen.

[Muetze1]

... afair sollte Upload_Label.Update reichen...

[blauweiss]

Application.ProcessMessages sollte nur wenn unbedingt notwendig eingesetzt werden. jbg hat es ja schon beschrieben, welche Nebenwirkungen das haben kann. xyz.Update ist der saubere Weg.

Gruß
blauweiss