Kompenente funktioniert zur Laufzeit aber nicht im Designer

[Tonic1024]

Hi...

Es ist schon mehrere Delphi-Versionen her, dass ich zuletzt eine eigene Komponente entwickelt hab. Jetzt ist es mal wieder so weit. Ich hab mir, wie früher, eine Klasse von TPanel abgeleitet und daraus eine eigene Komponente erstellt. Wenn ich das Objekt zur Laufzeit erstelle funktioniert sie super aber jetzt will ich sie im Formulardesigner verwenden und es klemmt.

Delphi-Quellcode:

type
  TContentPanel = class(TPanel)
  private

    FTitleImage: TImage;
[..]
  public
    constructor Create(AOwner: TComponent);
[..]
    procedure SetParent(AParent: TWinControl); override;
[..]

constructor TContentPanel.Create(AOwner: TComponent);
begin
  inherited;

  [..]

  FTitleImage:=TImage.Create(self);
  FTitleImage.Parent:=Self;

  [..]
end;


procedure TContentPanel.SetParent(AParent: TWinControl);
begin
  inherited;

  [..]

  if Assigned(FTitleImage) then  // an dieser Stelle scheint FTitleImage nicht zu existieren
  begin
    FTitleImage.Parent:=Self;
    FTitleImage.Picture.LoadFromFile('c:\xxx\test.png');
    FTitleImage.Stretch:=true;
    FTitleImage.Proportional:=false;
    FTitleImage.OnMouseDown:=TitleMouseDown;
    FTitleImage.OnDragOver:=TitleDragOver;
  end;

  [..]
end;

Ich brüte da schon den ganzen Nachmittag drüber. Irgendwie gehen mir die Ideen aus.


Gruß,

Toni

[stahli]

Den Constructor musst Du override deklarieren.

[Tonic1024]

Im Ernst? Dann fliegt mir das ganze Ding um die Ohren... Hab isch doch sonst nich gemacht *wunder*

[Uwe Raabe]

Zitat von Tonic1024:

Im Ernst? Dann fliegt mir das ganze Ding um die Ohren...

Dann machst du was falsch. Der constructor von Komponenten muss immer override sein, sonst wird er vom Streaming-System und von der IDE zur Design-Zeit nicht aufgerufen.

[Tonic1024]

Ach so. Ja gut, das mach ich ja nicht so oft (also in etwa gar nie). Dann hab ich auch nichts gesagt

Ist auch so. Hab alles auskommentiert was nicht unbedingt erforderlich ist um ein Panel auf dem Form zu zeichen und siehe da... Kaum macht mans richtig schon funktionierts. Der Fehler (das um die Ohren fliegen) liegt also ganz wo anders.

Ich danke euch. Muss nun erstmal debuggen...

Toni