Форум: "Основная";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
Вниз
TreeView OnMouseWheel Найти похожие ветки
← →
Димон1 (2003-03-07 13:43) [0]у меня TreeView почему-то не имеет события связанного с мышиным колесом, а мне его нужно обрабатывать. Подскажите, что делать.
Спасибо
← →
Иксик (2003-03-07 13:56) [1]Отлавливай сообщение WM_MOUSEWHEEL
← →
Иксик (2003-03-07 13:57) [2]Забыл, хляет только начиная с Win NT
← →
Димон1 (2003-03-07 14:08) [3]примерчик бы
пожалуйста
← →
Иксик (2003-03-07 14:18) [4]У меня сейчас мышка без колеса :) Так что проверить не смогу, но в общих чертах так:
объявляешь
procedure WMMOUSEWHEEL(var message:TWMMOUSEWHEEL); message WM_MOUSEWHEEL;
в implementation
procedure TForm1.WMMOUSEWHEEL(var message: TWMMOUSEWHEEL);
begin
Files := DragQueryFile(Message.Drop,$ffffffff,nil,0);
твои действия
end;
message.WheelDelta - на сколько колесико крутанулось, если положительное число, то вперед, отрицательное - назад
message.Keys - какие клавищи в этот момент были нажаты
message.XPos
message.YPos - позиция курсора от верхнего левого угла экрана.
← →
Димон1 (2003-03-07 14:19) [5]спасибо
ща попробую
← →
Иксик (2003-03-07 14:20) [6]Извиняюсь, забыл Files := DragQueryFile(Message.Drop,$ffffffff,nil,0);
удалить, это у меня из другой проги осталось, тебе это не нужно
← →
Димон1 (2003-03-07 14:23) [7]Когда фокус на форме (а TEdit"t например) - всё работает, а когда фокус на TreeView - не работает.
????
← →
Иксик (2003-03-07 14:32) [8]Попробуй ApplicationEvents,
сейчас я тоже посмотрю и скажу что получилось.
← →
Димон1 (2003-03-07 14:35) [9]уже сделал в TForm1.FormMouseWheel
всё работает
спасибо
← →
Иксик (2003-03-07 14:38) [10]Ну здорово, поздравляю :)
← →
Димон1 (2003-03-07 14:46) [11]
procedure TfrmMain.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if TabSheetProjPassport.Visible then
begin
if ScreenToClient(MousePos).X > Splitter1.Left then
ScrollBox1MouseWheel(Sender,Shift,WheelDelta,MousePos,Handled);
end;
end;
во как
← →
Иксик (2003-03-07 15:01) [12]Просто круто! :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c
