Parent Problem bei eigener Komponente

[himitsu]

CreateWnd wird jedesmal aufgerufen, wenn das interne Window (HWND) neu erstellt wird, das passiert z.B. beim Ändern des Parent, oder beim Umstellen des FormStyle usw.


Ups, mit dem Owner hab ich falschrum geguckt.

Delphi-Quellcode:

procedure TMyPanel.CreateWnd;
begin
  inherited;
  Panel1 := TPanel.Create(self);
  Panel1.Parent := self;
  Self.Owner.InsertComponent(Panel1);
end;

entspricht

Delphi-Quellcode:

procedure TMyPanel.CreateWnd;
begin
  inherited;
  //Panel1 := TPanel.Create(self);
  Panel1 := TPanel.Create(nil);
  Panel1.Owner := Self;

  Panel1.Parent := Self;

  //Self.Owner.InsertComponent(Panel1);
  Panel1.Owner := Self;  // hatte das vorhin als Self.Owner := Panel1; übersetzt
end;

Demnach wäre das InsertComponent dann nur "nutzlos", da der Owner bereits gesetzt wurde.

Hmmmmmmmmmmmmmmmm...
Also der zweite Code, lies einfach nur den Owner weg, durch weglassen des Panel1 .... unter der Annahme der falschen Richtung des InsertComponent.

Delphi-Quellcode:

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited;
  if Assigned(Owner) then
    Owner.RemoveComponent(Panel1);
end;

hätte man auch als

Delphi-Quellcode:

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited Create(nil);
end;

schreiben können, aber ist ja nun doch falsch.