Вопрос № 108905: Добрый день!
Как сделать, чтобы в форме срабатывали 3 события при: нажание на колесико мыши, прокручивание его вверх и прокручивание вниз?...
Вопрос № 108.905
Добрый день!
Как сделать, чтобы в форме срабатывали 3 события при: нажание на колесико мыши, прокручивание его вверх и прокручивание вниз?
Отправлен: 11.11.2007, 09:54
Вопрос задал: Red Spirit (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 21)
Отвечает: Gh0stik
Здравствуйте, Red Spirit!
ДЛя это Вам достатчно воспользоваться стандартними обработчиками событий:
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin Form1.Caption:= 'крутим вверх'; end;
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState
; MousePos: TPoint; var Handled: Boolean); begin Form1.Caption:= 'крутим вниз'; end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case Button of mbMiddle: Form1.Caption:= '"наступили" на колесо...'; end; end;
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 11.11.2007, 10:23 Оценка за ответ: 5
Отвечает: Dubrovin
Здравствуйте, Red Spirit!
для 7.7 писать отдельную dll и создовать обрабочик внешнего события
в 8 , там кажется все проще, там можно создовать события )
Ответ отправил: Dubrovin (статус: 3-ий класс)
Ответ отправлен: 12.11.2007, 10:15 Оценка за ответ: 4 Комментарий оценки: Гм..