Eine Nachricht an die eigene Kompo schicken?

[phlux]

Sälü

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:
  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? Hat jemand ne Idee wie man es zum laufen bringt??

mfg phlux

[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