TControl.OnClick (protected) zuweisen

[DGL-luke]

hallo,

ich hätt hier mal was ganz unorthodoxes. Ich habe eine Reihe von Objekten, von denen ich nur weiss, dass sie von TControl abstammen. Und denen würd ich halt echt gerne für OnClick was zuweisen, was ja nicht geht, da das ja protected ist.

also müsst ich entweder die echte Klasse rausfinden, was ja nicht Sinn der Sache ist, oder irgendwie da dran kommen...

Die Windowproc will ich eigentlich nicht gerne überschreiben, das is n Haufen Arbeit und fehlerträchtig noch dazu, und mal schnell die vcl-sourcen ändern... nää...

Komm ich da irgendwie ran?

[Khabarakh]

Klingt Classhack unorthodox genug ?

[SirThornberry]

so einfach gehts

Delphi-Quellcode:

  TMyOnClickControl = class(TControl)
  published
    property OnClick;
  end;

[...]
if X is TControl then
  TMyOnClick(X).OnClick = DeinClickEvent;

[Khabarakh]

Mit einem Classhack in der gleichen Unit reichen schon zwei Zeilen:

Delphi-Quellcode:

TControlHack = class(TControl);

...

TControlHack(Control).OnClick := ...

[DGL-luke]

dat kommt mir aber janz spanisch vor....

Delphi-Quellcode:

type
  TControlHack = class(TControl);

[...]

  TControlHack(ScrollBar1).OnMouseMove := ...;

das kann ich nicht ganz nachvollziehen... ich meine, die ableitung alleine schiebt ja das OnClick noch nicht aus dem protected raus (was sehr elegant wäre);

@SirT: Jaaaaaa, das is eher, was ich wollte. So macht das Spaß.
@Khabarakh: Ach genau, wenns in der gleichen Unit is...