Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TForm vererben (https://www.delphipraxis.net/35764-tform-vererben.html)

Bigmichi 11. Dez 2004 15:12


TForm vererben
 
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 =)

Robert_G 11. Dez 2004 15:20

Re: TForm vererben
 
Schaue mal unter Menü: File\New\Other
Dort dürfte ein Tab mit deinem Projektnamen auftauchen. Da wählst du das abzuleitende Form aus -> färrtigg. ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:48 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz