Wenn ich das Bild nicht direkt bei OnCreate oder OnShow öffne dann funktioniert
ich habe einen Timer verwendet :
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
if (not(ParamCount=0)) and (AnsiLowerCase(ExtractFileExt(ParamStr(1)))='.jpeg') then begin
path:=ParamStr(1);
timer1.enabled:=true;
end;
procedure TForm1.Timer1(Sender: TObject);
begin
image1.picture. ... // dann funktioniert
end;
Woran kann es liegen
