eigenge Komponente onClick

[TeronG]

Hi

Habe eine eigene Komponente bestehend aus einem TImage (erben) und einem TLabel gebastelt.
Die komponente ist abgeleitet von einem Erben von TCustomControl.

Nun wollte ich das Event onClick haben und habe dazu, wie immer, einfach "property onClick;" in published eingefügt.
Das Event taucht zwar auch brav im OI auf aber zur Laufzeit reagiert es nicht! (eigene events lösen problemlos aus)

Frage also: Was mache ich falsch!?

Irgendwie stehe ich grade ziemlich auf dem Kriegsfuß mit dieser Komponente. :wall:


EDIT: Muss ich ein eigenes Ereignis machen und dann die klicks der einzelnen Teile zu meinem Ereignis weiterleiten? Das würde klappen aber bei einer anderen Komponente (ohne "Unterkomponenten") hat es direkt geklappt. Aber evtl. "merkt" Delphi ja, dass der Platz neben dem Label und dem Bild "leer" sind und macht deswegen nix!? Und auf dem Label/Bild macht es nix weil ich es nicht weitergeleitet habe .... :gruebel:

EDIT2: Hab es nun so gemacht und es funtzt wunderbar. :)

[BAMatze]

Hallo,
hast du mal versucht die OnClick-Proceduren deiner Einzelkomponenten zu einer gemeinsamen zu einem OnClick-Event der Gesamtkomponente zusammen zu fassen? Hab mal aus dem Kopf versucht einen groben Quellcode zu erstellen (weiß also nicht ob es so funktioniert)

Delphi-Quellcode:

Type TMyComponent = Class(TWinControl)
  private
    ...
    FOnClick: TNotifyEvent;
    
    procedure FLabelOnClick(Sender: TObject);
    procedure FImageOnClick(Sender: TObject);
    ...
  published
    property OnClick: TNotifyEvent read FOnClick write FOnClick;
    ...
End;
...

// Zuweisung der FLabelOnClick auf das eigentliche OnClick-Event nicht vergessen! Für Image ebenso

procedure TMyComponent.FLabelOnClick(Sender: TObject);
begin
  if assigned(FOnClick) then FOnClick(Self);
end;
// Das ganze nochmal für das Image

Denke mal so könnte das funktionieren.

MfG
BAMatze

[TeronG]

Zitat:

Zitat von BAMatze

Denke mal so könnte das funktionieren.

Jup so in der art habe ich es nun gelöst.

Zitat:

Zitat von TeronG

EDIT2: Hab es nun so gemacht und es funtzt wunderbar. :)

Habe ein Event gemacht und die onClick's der integrierten Komponenten auf dieses verwiesen. (ich brauche (noch) keine Unterscheidung)

quasi
Beschriftung.onClick := onClick;
Bild.onClick := onClick;
Und onClick ist ein "ganz normales" Event.

Klapp wunderbar :)
(jetzt muss ich nur noch eine schönere Lösung für mein PopupMenuProblem finden ^^ )

[BAMatze]

Du könntest auch mal schauen, ob du eventuelle ohne die OnClick-Events der Einzelkomponenten die WM_LButtonClick ausnutzen kannst. vieleicht umgehst du damit, dass du beide einzelnen Events abfragen muss.