Dispatch Probleme

[QuickAndDirty]

Hallo erstmal,
ich hab da eine Componente(TCustomcontrol) von der aus ich den
Dispatch seines Owners Aufrufe um eine Message zu verteilen
die sich an einige CheckBoxen auf dem Formular richtet(Owner ist ein Formular).

Delphi-Quellcode:

    Msg.Msg := WM_ReEvaluate;
    Tform(Owner).Dispatch(Msg);

leider errreiche ich immer nur den Default Handler statt diesen
Handler

....
Procedure WM_ReEvaluate_Message(var message : TMessage); Message WM_ReEvaluate; ...

Delphi-Quellcode:

Procedure TFirmaCheckBox.WM_ReEvaluate_Message(Var message : TMessage);
Begin
  ReEvaluate;
end;

Procedure TFirmaCheckBox.ReEvaluate;
var wert:Boolean;
Begin
  Wert := Checked;
  if assigned(FReEvaluate) then
    FReEvaluate(self, wert);
  Checked := Wert;
end;

Was mache ich falsch?

[Vjay]

Weil du TForm1(Owner).Dispatch(Msg); aufrufen müssstest und nicht die Funktion der Form-Klasse (?) rate ich einfach mal.

Ansonsten benutz doch einfach SendMessage.

[QuickAndDirty]

äh.. nein Vjay hundert pro NICHT auf TForm1 casten.

Wenn ich Sendmessage an Tform(Owner).handle mache Verteilt ein Nachkommen
von TForm /TCustomForm diese dann an die Controls Liste?

[QuickAndDirty]

OK ich glaub ich habs. Denke mal das ich die Funktion
von Dispatch falsch verstanden hab. muss wohl doch den
Kompletten Control-Baum desFormulars und seiner Untercontrols
durch durchsuchen. oder?

[QuickAndDirty]

Ok ich glaub ich hab doch eine Lösung: Broadcast(Msg) ist die Lösung.