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.