Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by luisk,
8. Jan 2016
z.B. so: :glaskugel:
type
CL_ComboBox = class ( TComboBox )
:
//---------------------------------------------------------------------------
procedure CL_ComboBox.on_Change(Sender: TObject);
begin
if bl_mouse_wheel then begin
ItemIndex := Item_Index;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by luisk,
8. Jan 2016
Wie kann man bei TComboBox MouseWheel ausschalten?
Das hier scheint nicht zu funktionieren:procedure TForm1.ComboBox1MouseWheel ( Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
begin
Handled:=true;
end;