Как использовать мышиное колесо прокрутки

← →
Korneley © (2006-10-04 09:31) [0]

Подскажите плз., какие сообщения генерируются при вращении колесика мыши? Возникла необходимость делать "zoom in"/"zoom out", колесо как раз для этого годится, а я вот как его пользовать?

← →
Elen © (2006-10-04 09:34) [1]

В каком компоненте?
+ Вообще :
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure ft(var Msg: TMsg; var Handled: Boolean); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //********* PROCEDURE********** procedure tform1.ft; //const //Var begin if msg.message = wm_mousewheel then caption:=caption+"d"; end; //********* END PROCEDURE******* procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage:=ft; end; end.

← →
Elen © (2006-10-04 09:37) [2]

В догонку
//********* PROCEDURE********** procedure tform1.ft; //const //Var begin if msg.message = wm_mousewheel then caption:=inttostr(integer(Msg.wParam)); end; //********* END PROCEDURE*******
отрицательное число - вращение на себя
положительное - от себя

Окейно! Исчерпывающе. Спасибо!

Как использовать мышиное колесо прокрутки Найти похожие ветки