Delphi-Quellcode:
procedure TFMain.Label1Click(Sender: TObject);
begin
//ShowMessage(ExtractFilePath(ParamStr(0)));
PB.StepBy(10);
while PB.Position < 100 do
begin
PB.StepBy(10);
end;
//IShow.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'lemontree.jpg');
IShow.Picture.LoadFromFile(Pfad+Liste.gibElement.GibBild);
MOutline.Clear;
MOutline.Lines.add(Liste.gibElement.GibName);
Liste.zumnaechsten;
TProgress.Enabled:=True;
das ist aus nem programm das ich mal geschrieben habe
habs ausprobiert und da hab ich das problem nicht
€D$T:
habs dir mal als zip angehäng
