message fuer alle komponenten

[Chef de Loup]

Hallo,
ich hoffe ich bin jetzt im richtigen Forum.
Ich versuche gerade Komponenten zu erstellen und hatte dabei die wahnwitzige idee, das ich der Komponente die Moeglichkeit gebe sich per messages mit anderen Komponenten abzugleichen. Die Idee sieht wie folgt aus:
Komponente wird in ihrer Groesse veraendert wodurch sie eine message absendet damit alle Komponenten des gleichen Typs erfahren das da was passiert ist. Diese Komponenten sollen aufgrund der message eine Anpassung starten.

Das Versenden der Message erfolgt derzeit per

Code:

SendMessage(self.Parent.Handle,WM_USER+1024,0,0)

Das Empfangen bereitet mir allerdings im Moment Probleme. Der einzige der auf die Message reagiert ist das Hauptfenster (TForm). Ich weiss leider absolut nicht wie ich eine Message absenden soll damit die untergeordneten Komponenten der Form auch reagieren.
Die Procedure zum Messageempfang ist von hier abgeschaut *g*

Code:

procedure WMHACK(var msg : TMessage);message WM_USER+1024;
...
procedure MessageVersuch.WMHACK(var msg : TMessage);
begin
     ShowMessage('Es geht!');
end;

Die Komponente welche empfangen soll ist von TComponent abgeleitet.

Ich hoffe mein Problem wurde verstanden, ich weiss sonst nicht wie ich es anders ausdruecken soll :(

[Bernhard Geyer]

Da Delphi (<=7) noch keine Klassenvariablen unterstützt würde ich folgendes machen

Ich würde in der Unit, wo diese Klasse definiert sind eine Verwaltungsliste anlegen, in der sich alle Objekte beim erzeugen registrieren. Beim Zerstören tragen sie sich wieder aus.

Über diese Liste könnte eine Benachrichtigung aller Instanzen der Klasse erfolgen.