Como transferir as msgs de um form para um componentes?

Delphi

05/05/2006

Bom dia!!!

Estou criando um componente para enviar a aplicação para a trayicon.
E gostaria de saber como passar do form,q é o owner deste componente as mensagens do tipo wm_rbuttondown do form para o componente?

Pois eu gostaria de ao clicar com um determinado butao do mouse sobre o icone, ele mostrasse ou ocultasse o form principal.

Fiz toda a rotina diretamente no form e funciona, estou usando assim:

TForm1 = class(TForm)
      procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     TrayIconData: TNotifyIconData;

  public
    { Public declarations }
    procedure TrayMessage(var lMsg: TMessage); message 

const
  WM_ICONTRAY;

  end;

procedure TFORM1.TrayMessage(var lMsg: TMessage);
begin
  case lMsg.LParam of
    WM_LBUTTONDOWN: Self.Mostra;
    WM_MBUTTONDOWN: Self.Esconde;
    WM_RBUTTONDOWN: Self.Esconde;
  end;
end;


Aqui no form funciona ok. Mas no componente, ele não responde.

Alguma idéia do q está errado?

Valeu!!!


Aledeol

Aledeol

Curtidas 0
POSTAR