Eine Nachricht an die eigene Kompo schicken?

[phlux]

Sälü :hi:

Also ich habe mir gedacht es wäre ein tolles Feature, wenn ich meiner Kompo eine Nachricht a la

Delphi-Quellcode:

const
  WM_MYMSG = WM_USER + 10;

Schicken würde und sie darauf reagieren würd. Implementiert hab ich das ganze so:

Delphi-Quellcode:

const
  WM_TOGGLESKIN = WM_USER + 10;
(*...*)
  TImageButton = class(TSpeedButton)
  private
    { Private-Deklarationen }
    procedure ToggleSkin(var Msg: TMessage); message WM_TOGGLESKIN;
(*...*)
procedure TImageButton.ToggleSkin(var Msg: TMessage);
begin
  fSkinned := not fSkinned;
  invalidate;
  inherited;
end;

Jetzt will ich die Nachricht senden:

Delphi-Quellcode:

  SendMessage(Form1.Handle, WM_TOGGLESKIN, 0, 0);

Klappt nur nicht :? Liegt es daran, dass ich die Nachricht an die Form schicke und diese die nicht weiterleitet? :gruebel: Hat jemand ne Idee wie man es zum laufen bringt??

mfg phlux :hi:

[marabu]

Hallo,

probiere es mal so:

Delphi-Quellcode:

var
**m: TMessage;
begin
**with m do begin
    Msg := WM_TOGGLESKIN;
  **WParam := 0;
  **LParam := 0;
  **Result := 0;
  end;
  Form1.Broadcast(m);
end;

Grüße vom marabu

[phlux]

Hi Marabu!

Danke so funzt es :)

mfg phlux :hi: