Ja so ist es richtig, nur hab ich warscheinlich ein bisschen falsch ausgedrückt gehabt
. Nun ist es so das ich das Kindcontrol erweitert habe um das property
Delphi-Quellcode:
TKindControl = class(TControl)
private
FVaterPanel: TVaterPanel;
public
property Vater: TVaterPanel read FVaterPanel write FVaterPanel;
...
Und in der Form weise ich dann das VaterPanel zu
Delphi-Quellcode:
type
TForm1 = class(TForm)
...
public
vaterpanel: TVaterPanel;
kindpanel1: TKindControl;
kindpanel2: TKindControl;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
kindpanel1 := THighLightControl.Create( Self );
kindpanel1.Left := 40;
kindpanel1.Top := 20;
kindpanel1.Width := 200;
kindpanel1.height := 50;
kindpanel1.Name := 'testpanel1';
kindpanel1.Parent := Form1;
kindpanell.vater := vaterpanel;
kindpanel1.Visible := true;
end
Das gleiche mach ich dann mit den anderen kindpanels. Dann kann ich im KindControl auf die Eigenschaften vom Vater zurückgreifen.