DBLookupComboBox Скроллинг.

[lutdan]

Как реализовать скроллинг с помощью колеса мыши в DBLookupComboBox?

 private
    { Private declarations }
    procedure MouseWheelHandler(var Message: TMessage);override;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.MouseWheelHandler(var Message: TMessage);
var
  p:TPoint;
begin
 GetCursorPos(p);
 If WindowFromPoint(p)=DBLookupComboBox1.Handle then
 begin
  If Message.WParam<0 then
  DBLookupComboBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0)
  else
  DBLookupComboBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);
 end;
end;

Код не работает. Заранее спасибо

[lutdan]

 procedure MouseWheelHandler(var Message: TMessage);  override;
 
  private
    { Private declarations }

procedure TForm4.MouseWheelHandler(var Message: TMessage);
var
  p:TPoint;
begin
 GetCursorPos(p);

  If DBLookupComboBox1.Focused then
     If Message.WParam<0 then
           DBLookupComboBox1.Perform(WM_KEYDOWN, VK_DOWN, 0)
     else
           DBLookupComboBox1.Perform(WM_KEYDOWN, VK_UP, 0);

[squirel]

lutdan, прости мою неграмотность, но не могу найти как эту процедуру подвесить (у меня Delphi 7)... Для формы есть только MouseWheel, MouseWheelup, MouseWheeldown. Для DBLookupComboBox MouseWheel... вообще нет, есть только Mouse... Я уже просто вписала её и объявила, дак она считается моей собственной, а не встроенной. Пыталась вызывать в MouseWheel для формы работает только на перемещение вверх... также ругается на Message.WParam, предлагает только Message.MSG.... ЧТО Я ДЕЛАЮ НЕПРАВВИЛЬНО