Колесо мыши

← →
Саня (2004-09-03 05:45) [0]

Привет, Мастера. Подскажите можно ли как-то отследить события прокпутки колеса мыши вверх-вниз? Заранее благодарен.

← →
КаПиБаРа © (2004-09-03 06:32) [1]

F1 - WM_MOUSEWHEEL

================================================== Прежде чем делать открытие — загляни в справочник. (с) Козьма Прутков - инженер ==================================================

← →
Rem (2004-09-03 08:11) [2]

Как проверить условие: если колесико мыши крутится вниз, то?..

// В Delphi5 и выше можно использовать события
// OnMouseWheelDown и OnMouseWheelUp
// В другом случае попробуй так:

type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;
public
{ Public declarations }
end;

procedure TForm1.WMMouseWheel(var Msg: TWMMouseWheel);
begin
if Msg.WheelDelta > 0 then
begin
Caption := "Вверх";
Windows.Beep( 500, 100 );
end
else
begin
Caption := "Вниз";
Windows.Beep( 1500, 100 );
end;
end;

Колесо мыши Найти похожие ветки