Консультация № 108905
11.11.2007, 09:54
0.00 руб.
0 2 2
Добрый день!
Как сделать, чтобы в форме срабатывали 3 события при: нажание на колесико мыши, прокручивание его вверх и прокручивание вниз?

Обсуждение

Неизвестный
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!!!
Неизвестный
12.11.2007, 10:15
общий
это ответ
Здравствуйте, Red Spirit!
для 7.7 писать отдельную dll и создовать обрабочик внешнего события

в 8 , там кажется все проще, там можно создовать события )
Форма ответа