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

Вниз

Как сделать прокрутку ListView колесиком?   Найти похожие ветки 

 
MegaVolt   (2008-06-03 16:56) [0]

Проблема в том что если мышь находится над ListView а фокус на другом компоненте то прокрутка вызывается у компонента с фокусом :( Как сделать чтобы при начале прокрутки фокус переключался на ListView?


 
DiamondShark ©   (2008-06-03 17:57) [1]

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
 MouseControl: TControl;
begin
 MouseControl := ControlAtPos(ScreenToClient(MousePos), false, true);
 if (MouseControl <> ActiveControl) and (MouseControl is TWinControl) then
 begin
   TWinControl(MouseControl).SetFocus;
   Handled := true;
 end;
end;


 
MegaVolt   (2008-06-03 18:01) [2]

Пробовал нечто подобное.
В результате вначале на одну позицию сдвигается компонент с фокусом потом фокус переключается и прокрутка идёт дальше.

Т.е. я в событие FormMouseWheel попадаю уже после того как одна прокрутка произошла :( Как бы это попасть до этого?


 
MegaVolt   (2008-06-03 18:02) [3]

Упс... Упустил Handled := true; спасибо за решение.


 
MegaVolt   (2008-06-03 18:09) [4]

Хотя всё же заметно что начало прокрутки заерживается. Можно ли как то включить фокус у ListView до начала прокрутки?


 
MegaVolt   (2008-06-04 16:02) [5]

Короче сделал так. Всё пашет на ура пользуйтесь если кому надо.

procedure TForm1.CMMouseWheel(var Message: TCMMouseWheel);
var
 MouseControl: TControl;
begin
 MouseControl:=FindVCLWindow(Mouse.CursorPos);
 if (MouseControl <> ActiveControl) and (MouseControl is TWinControl)
   then
     begin
       TWinControl(MouseControl).SetFocus;
       with TMessage(Message) do
         begin
           TWinControl(MouseControl).Perform(WM_MOUSEWHEEL, WParam, LParam);
           Result:=1;
         end;
     end
   else inherited;
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.02 c
15-1210798005
kaif
2008-05-15 00:46
2008.06.29
Зенит - чемпион !!!


15-1210747700
Stas
2008-05-14 10:48
2008.06.29
Купили fastreport4 и fastreport server


2-1212383370
snake-as
2008-06-02 09:09
2008.06.29
Не исчезает WebBrowser


3-1201096350
Gklbery
2008-01-23 16:52
2008.06.29
динамический use


3-1201080222
Sairex
2008-01-23 12:23
2008.06.29
Добавление картинки в БД (BDE)