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