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?