FMX: TComboBox MouseWheel ausschalten

[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;
//----------------------------------------------------------------------------