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.