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.