Delphi-Quellcode:
procedure TForm1.Bildladen1Click(Sender: TObject);
begin
Bild:=Rechts.PopupComponent as TImage; //wo das Popup-Menü aufgerufen wurde
Oeffnen.Execute; //OpenPictureDialog
end;
Delphi-Quellcode:
procedure TForm1.Bildladen1Click(Sender: TObject);
begin
Bild:=Rechts.PopupComponent as TImage; //wo das Popup-Menü aufgerufen wurde
if Oeffnen.Execute then //OpenPictureDialog
begin
Bild.Picture.LoadFromFile(Oeffnen.FileName);
end;
end;
Denn wenn der Dialog wieder geschlossen ist, ist es nicht sicher, dass
Oeffnen.FileName noch richtig ist.
Grüße
Klaus