Hi,
ich lade mit folgenden Code Bilder in ein Image
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure PPict(I1: TImage; Pict:TPicture; filename:string; GBcal: TGroupBox; Lsol: TLabel);
begin
Pict:=TPicture.Create;
Pict.LoadFromFile('Bilder'+filename);
I1.Visible:=true;
I1.Picture:=Pict;
GBcal.Visible:=False;
Lsol.Visible:=true;
end; |
Aufrufen tu ich die Procedure wiefolgt:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TFcalender.L8Click(Sender: TObject);
begin
today:=strtoint(l8.caption);
Pdatum(present,year,today,day,month);
if valuable = true then
begin
filename:='musik.jpg';
PPict(I1, Pict, filename,GBcal,Lsol);
end;
Lzoom.Visible:=true;
end; |
Das hat auch immer alles funkioniert, bis ich ein neues Formular eingebunden habe. Selbst wenn ich nicht auf dieses Formular zugreife, läd er mir die Bilder nicht in das Image, sondern bringt eine Fehlermeldung EFOpenError.
Weiß jemand woran das liegen könnte. Wenn ich das Foruular rausnehme (das uses lösche) läufts übrigens immer noch nicht. Erst wenn ich Delphi komplett neu gestartet habe funktionierts wieder.
Danke
EDIT:
das muss natürlich
Pict.LoadFromFile('Bilder/'+filename);
mach's aber auch nicht besser.
Moderiert von 
jasocul: Beiträge zusammengefasst
