PhotoFiltre Forum

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 !!

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 ?????

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é ?

Antonio a écrit : 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

Antonio a écrit :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 !!

PhotoFiltre Forum

WellMouse => Marche pô

WellMouse => Marche pô