Broadcast an MyComponents

[stahli]

Hi alle,

bisher sammle ich alle erzeugten TMyComponent in einer Liste gesammelt und bei Bedarf in einer Schleife für alle MyComponent.DoIt aufgerufen (egal unter welcher Form diese erzeugt wurde).
Es sollen alle Komponenten in meiner Application informiert werden.

Jetzt wollte ich das gern über Messages regeln und habe entsprechend

Delphi-Quellcode:

const
  WM_MyMsg = WM_USER + 3;

definiert.

Über eine Funktion versende ich die Nachricht:

Delphi-Quellcode:

SendBroadcast(Self, WM_MyMsg);

...

procedure SendBroadcast(C: TComponent; M: Cardinal);
var
  I: Integer;
//  Msg: TMessage;
begin
//  Msg.Msg := M;
//  Msg.WParam := 0;
//  Msg.LParam := Longint(C);
//  Msg.Result := 0;
  for I:= 0 to Screen.FormCount - 1 do
    SendMessage(HWND_BROADCAST, M, 0, Longint(C));
//    Screen.Forms[I].Broadcast(Msg);
end;

Bei meinen MyComponents kommt aber keine Botschaft an:

Delphi-Quellcode:

TMyComponent = class(TComponent)
private
  procedure WMMyMsg(var Message: TMessage); message WM_MyMsg;

...

procedure TMyComponent.WMMyMsg(var Message: TMessage);
begin
  beep;
end;

Ist das überhaupt der richtige Ansatz?
Was fehlt?
(Falls ich in den Formularen etwas ändern müsste, wäre das für mich keine Lösung, da meine Komponenten sich immer selbständig untereinander veständigen sollen.)


Ich habe mehrere Stunden gesucht, aber das noch nicht wirklich nachvollziehen können.

[Satty67]

SB_GETTEXTLENGTHA = WM_USER + 3;

Bin mir nicht sicher, ob das was zu sagen hat, aber würde einfach mal einen Wert größer WM_USER + 2000 testen.

[sx2008]

Messages an HWND_BROADCAST werden nur an alle Top-Level Fenster verschickt.
Die Message wird also bestenfalls vom Hauptformular empfangen.

[stahli]

Ok, jetzt habe ich es endlich verstanden.
Dann nützen mir Messages als Rundinfo nix :(

Danke trotzdem! ;-)

[Luckie]

Auch hier wieder, warum keine Ereignisse?

[stahli]

Hab´s gerade in dem anderen Thread schon einsehen. ;-)

[Sir Rufo]

Zumal man doch Messages eh nur an ein Window/Form senden kann. Eine Komponente kann ich damit nicht erreichen (soweit mir bekannt)

Möglicherweise wäre für dich auch ein Observer Pattern interessant.