Scrollen in einer ComboBox unterbinden

[Lannes]

Hallo,

die Message WM_MOUSEWHEEL abfangen.

Das Beispiel bezieht sich auf ein Memo, funktioniert genauso bei ComboBoxen:

Delphi-Quellcode:

//...  
  private  
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);  
//...  
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);  
begin  
  if Msg.message = WM_MOUSEWHEEL then  
    if ActiveControl = Memo1 then  
      Msg.message := 0;  
  inherited;  
end;  

 
procedure TForm1.FormCreate(Sender: TObject);  
begin  
  Application.OnMessage := AppMessage;  
end;

noch die Mauskoordinaten berücksichtigen...