11.11.2007, 10:23
общий
это ответ
Здравствуйте, Red Spirit!
ДЛя это Вам достатчно воспользоваться стандартними обработчиками событий:
<code><font color=green>// обработка прокрутки колеса вниз</font>
procedure MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
<font color=green>// обработка прокрутки колеса вверх</font>
procedure MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
<font color=green>// обработка нажатий на кнопки мыши</font>
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);</code>
Соответственно их обработка:
<code>procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Form1.Caption:= <font color=purple>‘крутим вверх‘</font>;
end;
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Form1.Caption:= <font color=purple>‘крутим вниз‘</font>;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
case Button of
mbMiddle: Form1.Caption:= <font color=purple>‘"наступили" на колесо...‘</font>;
end;
end;</code>
Good Luck!!!