FMX: TComboBox MouseWheel ausschalten

[luisk]

Wie kann man bei TComboBox MouseWheel ausschalten?
Das hier scheint nicht zu funktionieren:

Delphi-Quellcode:

procedure TForm1.ComboBox1MouseWheel ( Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
begin
    Handled:=true;
end;

[Harry Stahl]

Verschiedene Komponenten (z.B. TListBox, TMemo) haben die Option "DisableMouseWheel", womit Du die Behandlung des Wheel-Events abschalten kannst.

Die TComboBox hat das leider nicht.

Im TCustomScrollbox.MouseWheel-Event (Unit FMX.Layouts) kannst Du Dir ansehen, wie das z.B. bei der TListBox ausgeschaltet wird.

Vielleicht gibt Dir das ja eine Idee für irgendeine eigene Ableitung oder einen Hack...

[luisk]

z.B. so:

Delphi-Quellcode:

type
CL_ComboBox = class ( TComboBox )
       :
//---------------------------------------------------------------------------
procedure CL_ComboBox.on_Change(Sender: TObject);
begin
   if bl_mouse_wheel then  begin
      ItemIndex := Item_Index;
      bl_mouse_wheel := false;
   end else begin
      Item_Index := ItemIndex;
   end;
end;
//---------------------------------------------------------------------------
procedure CL_ComboBox.on_MouseWheel ( Sender: TObject;
                                       Shift: TShiftState;
                                       WheelDelta: Integer;
                                   var Handled: Boolean );
begin
   Handled := true;
   bl_mouse_wheel := bl_no_mouse_wheel;
end;
//----------------------------------------------------------------------------