Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

Народное голосование ПРЕМИИ РУНЕТА-2007!
Голосуем за RusFAQ.ru >>

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 980
от 16.11.2007, 16:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 453, Экспертов: 61
В номере:Вопросов: 1, Ответов: 2


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

Вопрос № 108.905
Добрый день!
Как сделать, чтобы в форме срабатывали 3 события при: нажание на колесико мыши, прокручивание его вверх и прокручивание вниз?
Отправлен: 11.11.2007, 09:54
Вопрос задал: Red Spirit (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 21)

Отвечает: Gh0stik
Здравствуйте, Red Spirit!

ДЛя это Вам достатчно воспользоваться стандартними обработчиками событий:

// обработка прокрутки колеса вниз
procedure MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);

// обработка прокрутки колеса вверх
procedure MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);

// обработка нажатий на кнопки мыши
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);


Соответственно их обработка:

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
Комментарий оценки:
Гм..


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.62.1 от 14.11.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное