Seltsames Verhalten der TStatusbar

[aladin60]

Muss Euch mal belästigen..., bin schon ungehalten (über meine Dummheit?).

Will in TStatusBar eines Fortschrittfensters den Verlauf einer Bilderkopieraktion anzeigen...

Delphi-Quellcode:

...
if Execute then  //Dialog Bild öffnen
begin
  screen.Cursor:=crHourGlass;
  StatusF.PB.Position:=0;
  StatusF.PB.Max:=Files.Count;
  statusF.show;
  for i:=0 to Files.Count-1 do
  begin
    StatusF.SB.Panels[1].Text:='Kopiere Bild '+IntToStr(i)+' von '+IntToStr(Files.Count);
    ShowMessage('nun');  // ohne diese Bremse gehts nicht!
    CopyFile(PChar(Files[i]),PChar(ObjDir+'\Fotos\'+ExtractFileName(Files[i])),false);
    StatusF.PB.Position:=i;
  end;
...

Mit der Hilfsmessage zum Halten gebracht wird alles einwandfrei angezeigt, nehme ich diese Box raus, ist nichts zu lesen, die Progressbar macht, was sie soll, die Statusbar denkt nicht dran!

Habt ihr eine Idee, woran das liegt?

Bernd.

[DeddyH]

Setz mal statt des ShowMessage-Aufrufs ein Application.ProcessMessages ein. Die elegantere Alternative wäre allerdings die Verwendung eines Threads.

[Prototypjack]

Moin,

Möglicherweise wird die Statusbar in zu großen Abständen neu gezeichnet. Das Zeichnen kannst du hiermit forcieren:

Delphi-Quellcode:

StatusBar.Repaint;

Grüße,
Max

[aladin60]

Moment, ich versuche beides...


Danke schon mal...

Bernd.

[aladin60]

Dankeschön:

Application.ProcessMessages;

war hilfreich, repaint leider nicht.

Ein Thread wäre auch möglich, aber hier wohl unnötig. Die Bilder müssen zur Weiterarbeit sofort zur Verfügung stehen.

Bernd.

[DeddyH]

Zitat:

Zitat von aladin60

Die Bilder müssen zur Weiterarbeit sofort zur Verfügung stehen.

Das schließt ja die Verwendung eines Threads nicht aus ;)

[aladin60]

Ja.

Bernd.