Handled := true; Не то пальто..
Некоторые компоненты, нужно чтобы двигались при прокрутке колесика, а другие, нет.
Решил через
"ApplicationEvents" блокировать прокрутку на все объекты, за счет смены сообщения
"WM_MOUSEWHEEL" на
"0" , и дальше вписывать нужные мне компоненты, которые должны двигаться, если над ними курсор.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
MP: TPoint; {координаты X,Y}
a: TComponent;
begin
{Если прокручено колесико мыши}
if Msg.Message=WM_MOUSEWHEEL then
begin
{Запретить прокрутку колеса, для всех объектов}
Msg.Message:= 0;
{Снять фокус с предыдущего, используемого, компонента}
SetFocusedControl(Form1);
{Получить координаты курсора}
GetCursorPos(MP);
{Найти компонент под курсором. True или False - определяют,
будут ли учитываться заблокированные (disabled) объекты}
a:= (FindDragTarget (MP,false));
{Разрешить прокручивание колеса для компонента,
по имени, к примеру, "ComboBox5"}
if a.Name='ComboBox5' then
Msg.Message:= WM_MOUSEWHEEL ;
{Разрешить прокручивание колеса для всех компонентов типа "TrackBar"}
if a.ClassType=TTrackBar then
Msg.Message:= WM_MOUSEWHEEL ;
end;
end;
Только, вот,
ScrollBar-ам наплевать на
Msg.Message:= 0 , они продолжают двигаться как ни в чем не бывало...
