WellMouse => Marche pô

[pf]

Salut,

Je n'arrive pas a capter le message MOUSEWHEEL dans les plugins
Pourtant, les controls standards (ComboBox par ex) le captent.

Voila le code : Dans un executable, ça marche !!

Code : Tout sélectionner

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
  LowParam: SmallInt;
begin
  if Msg.message = WM_MOUSEWHEEL then 
  begin
    LowParam := HiWord(Msg.wParam);
    if LowParam > 0 then
      => ça tourne -
    else
      => ça tourne +
    Handled := true;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage; 
ect......

Au secours !!!!!!
Elle est ou l'astuce !!!!! Une explication ?????

[Antonio]

Application.OnMessage := AppMessage;

==> vu que l'application c'est l'exe PhotoFiltre et non le plugin, je pense que ça doit pas être traité dans ce message. Et dans le OnMouseWhell de la fiche, tu as essayé ?

[pf]

Application.OnMessage := AppMessage;
==> vu que l'application c'est l'exe PhotoFiltre et non le plugin, je pense que ça doit pas être traité dans ce message......

Je pense idem

Et dans le OnMouseWhell de la fiche, tu as essayé ?

Heu... Non... mais j'ai une escuse....
Je l'avais pô vu et Mr Borland me m'en a jamais parlé !!!

Impec !! Ca marche; Pourquoi faire compliqué !!!
Merci !!