Thema: Delphi TForm vererben

Einzelnen Beitrag anzeigen

Bigmichi

Registriert seit: 12. Mär 2004
119 Beiträge
 
#1

TForm vererben

  Alt 11. Dez 2004, 16:12
Musste nun meine Fragen unterteilen =)
(hab die texte nun aus dem alten Thread herausgeholt)

[ Was war mit der DFM Datei gemeint?? das versteh ich net so (( ]

Ich mochte eine TForm vererben und ihr eine weitere Eigenschaft zuweisen, dies klappt auch wenn ich es mit einem Button doer anderem mache aber bei der Form gibt es immre ein Fehler das er es nicht finden kann ( also die Form...

Code:
type TMyNewForm = class(TForm)
    private
      FImage: TImage;
    procedure
      SetImage(Value: TImage);
    public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;

    published
     property Hintergrundbild: TImage read FImage write SetImage;
  end;





constructor TMyNewForm.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FImage := TImage.Create(Self);
    FImage.Parent := Self;
  end;

destructor TMyNewForm.Destroy;
    begin
      FreeAndNil(FImage);
    inherited Destroy;
  end;



procedure TMyNewForm.SetImage(Value: TImage);
begin
  if FImage <> Value then FImage.Assign(Value);
end;
sobal ich nun mache "neueForm := TMyNewForm.create(self); kommt der fehler das er TMyNewForm nicht finden kann beim erstellen vom Bild aber bei anderen Controls geht es ja =)
  Mit Zitat antworten Zitat