OnClick eines Parent auslösen

[McDaTob]

Hallo,
hab mir ne Komponente aus mehreren Panels und Labels gebastelt.
Das alles liegt auf einem Hauptpanel.Jetzt würde ich gerne bei einem
Click die OnClick-Procedure des Hauptpanels auslösen.
Da ich aber nicht direkt auf das Hauptpanel klicke, wird OnClick
natürlich nicht ausgelöst.
Gibt es da eine Möglichkeit?

[malo]

Blind geraten:

Delphi-Quellcode:

procedure TMyClass.Something;
begin
  self.parent.click;
end;

Ungetestet, aber in etwa so sollte es klappen, denke ich

[McDaTob]

Danke für die schnelle Antwort.
Klar, das ist eine Möglichkeit.
Da ich aber einige Controls zur Laufzeit erstelle,
müsste ich ja jedem Control eine Click-Procedure zuweisen,
welche die Click des Parent aufruft. Dachte, dass es irgendwie
einfacher ginge.

[malo]

Du könntest auch allen das OnClick-Event des Parent zuweisen. Das sollte imho gehen... und auch per Laufzeit ziemlich schnell. Hab nur grad kein Delphi auf, um da was auszuprobieren (und auch nicht grade Zeit und Lust das zu machen...)

[SebE]

UnterKompo.OnClick := HauptKompo.OnClick; oder

UnterKompo.OnClick := @HauptKompo.OnClick; Weis nich so genau, einfach mal probieren.

[Khabarakh]

Oder du überschreibst bei den Untercontrols die Methode Click und fügst dort den Code ein.

[McDaTob]

Danke für die Tips.
Ich denke, dann muss ich Khabarakhs Vorschlag nehmen,
weil ich nicht nur das OnClick-Event brauche, sondern auch
die Click-Procedure.