Problem mit Klassen

[Cöster]

Zitat von mkinzler:

Zitat:

Danke für den Hinweis. Was schlägst du mir denn vor, wie ich das überarbeiten sollte?

Alle Referenzen auf Form1 entfernen, und diese als parameter der Methode übergeben.

Meinst du so?

Delphi-Quellcode:

procedure TBild.Oeffnen(Dlg: TOpenPictureDialog; Img: TImage);
begin
  If Dlg.Execute then
  begin
    self.FCurrentFile := Dlg.FileName;
    Img.Picture.LoadFromFile(Dlg.FileName);
    Img.Picture.Bitmap.PixelFormat := pf24Bit;
    Img.Visible := True;
  end;
end;