Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизМышки с колесиками Найти похожие ветки
← →
Дмитрий-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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c