WM_USER-Nachricht an alle Dialogelemente schicken

[Lagopus]

Hallo zusammen,

ich möchte gerne eine WM_USER-Nachricht an alle Dialogelemente meiner Anwendung, die aus verschiedenen Formularen besteht, schicken.

Ich habe dazu eine eigene Klasse von TStaticText erstellt, die in ihrer überschriebenen Prozedur WndProc auf diese Nachricht entsprechend reagieren soll:

Delphi-Quellcode:

interface 

type

  TMyStaticText = class(TStaticText)

    procedure WndProc(var: Msg : TMessage);override;

  end;

var
  WM_MEINENACHRICHT : Cardinal;

implementation

procedure TMyStaticText.WndProc(var Msg : TMessage);
begin
  if Msg.Msg = WM_MEINENACHRICHT then begin
    // mach jetzt etwas
  end;
  inherited WndProc(var Msg : TMessage);
end;

begin
  WM_MEINENACHRICHT := RegisterWindowMessage('Meine Nachricht');
end.

Ich löse die Nachticht mit

PostMessage(HWND_BROADCAST,WM_MEINENACHRICHT,Integer(self),0) aus.

Das funktioniert leider nicht, ich habe nach längerer WWW- und Forumssuche kapiert, daß die Nachricht nur an die Top-Level-Fenster geschickt wird, nicht aber an die untergeordneten Fenster bzw. Dialogelemente.

Nun habe ich eine - in meinen Augen - ziemlich unelegante Lösung gefunden, indem ich die Prozedur WndProc der einzelnen Formulare überschreibe und dort dann bei Vorliegen der Nachricht WM_MEINENACHRICHT diese explizit an die Handles aller TStaticText-Elemente des jeweiligen Formulars weiterreiche.

Diese Lösung befriedigt mich nicht, weil sie meiner Menung nach unnötigen Programmieraufwand bedeutet.

Meine Frage lautet nun, ob es eleganter möglich ist, eine selbst generierte Nachricht an alle Dialogelemente aller Formulare einer Anwendung zu schicken?

Danke & Grüße,

Lagopus.