Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.23;
Скачать: CL | DM;

Вниз

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

 
Дмитрий-2   (2002-12-12 21:09) [0]

Существуют модели мышек с колесиком :-)Для полос прокрутки. У меня Genius например. Подскажите как заставить дельфовские полосы прокрутки реагировать на колесико??

Заранее благодарен за ответ.
Дмитрий.


 
Uncle Archi ©   (2002-12-12 21:22) [1]

Для Genius есть специальные драйвера, в которых при наводе на полосу прокрутки можно её крутить.(~1000)


 
Matolch ©   (2002-12-13 02:32) [2]

Интересно, как это... специальные драйвера, конечно, неплохо, но придется их, так сказать, включать в комплект типа поставки, что. ли.

Приблизительно так

procedure TMainForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var Control: TControl;
begin
Control := FindDragTarget(MousePos, true);
if (Control = ScrollBox1) or (Control.Parent = ScrollBox1) then
with ScrollBox1.VertScrollBar do
Position := Position - WheelDelta div 12;
end;



Страницы: 1 вся ветка

Текущий архив: 2002.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
1-74756
Yr2
2002-12-13 14:13
2002.12.23
Прошу мастеров проконсультировать по сложному вопросу


3-74542
Evyshka
2002-12-03 16:50
2002.12.23
Поиск по записям


7-74999
dimod
2002-10-17 17:52
2002.12.23
Модификация системной даты/времени


1-74766
JC
2002-12-06 12:42
2002.12.23
Как приостановить выполнение процедуры, чтоб все остальные


7-75019
vic_774N
2002-10-19 15:38
2002.12.23
Как программно отключить переход на летнее время ?