5,388
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.RzComboBox1MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
If ActiveControl = RzComboBox1 then
Handled := True;
end;
procedure TForm1.RzComboBox1MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
SendMessage(self.ComboBox1.Handle,WM_VSCROLL,SB_NONE,0);
handled:=true;
end;