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

Вниз

Как перехватить mooseWheel   Найти похожие ветки 

 
Piero   (2005-02-11 15:31) [0]

Проблемма такая - у меня активна ComboBox и при вращении колеса мышки - значения в нем, естественно меняются, хотелось бы:
1. Сделать его не активным
2. Перехватывать событие - вращение колеса мышки
Списибо


 
begin...end ©   (2005-02-11 15:43) [1]

> Piero   (11.02.05 15:31)

> Как перехватить mooseWheel

Создать в наследнике обработчик сообщения WM_MOUSEWHEEL.


 
Piero   (2005-02-11 22:09) [2]

а поподробнее можно, или ссылку дай, я в этом не разбираюсь


 
sniknik ©   (2005-02-12 03:06) [3]

> а поподробнее можно, или ссылку дай, я в этом не разбираюсь
а зачем тогда тебе это? будеш знать что с этим делать?


type
 TMyComboBox = class(TComboBox);

 TForm1 = class(TForm)
   ...
 private
   procedure MouseWheelDown(Sender: TObject; Shift: TShiftState;
     MousePos: TPoint; var Handled: Boolean);
   procedure MouseWheelUp(Sender: TObject; Shift: TShiftState;
     MousePos: TPoint; var Handled: Boolean);
 public
 end;

procedure TForm1.MouseWheelDown(Sender: TObject; Shift: TShiftState;
     MousePos: TPoint; var Handled: Boolean);
begin
 //действия
end;

procedure TForm1.MouseWheelUp(Sender: TObject; Shift: TShiftState;
     MousePos: TPoint; var Handled: Boolean);
begin
 //действия
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 TMyComboBox(ComboBox1).OnMouseWheelDown:= MouseWheelDown;
 TMyComboBox(ComboBox1).OnMouseWheelUp:= MouseWheelUp;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.06 c
3-1106661255
БаТоН
2005-01-25 16:54
2005.02.27
Какой сервер и способ обращения выбрать?


11-1091516768
Unknown Mystic
2004-08-03 11:06
2005.02.27
Project_1.inc


14-1107846236
Aleksandr
2005-02-08 10:03
2005.02.27
Эрнест Хемингуэй - Старик и море


11-1092485443
=Sniper=
2004-08-14 16:10
2005.02.27
RichEdit1 := (Sender as TKolRichEdit); как будет в KOL?


4-1105397977
GanibalLector
2005-01-11 01:59
2005.02.27
GetOpenFileName/GetSaveFileName