TStepControl mouse right click

VCL TMS VCL UI Pack
1

TStepControl doesn't recognize right mouse click and behaves just like the normal left mouse click.

2

Are you referring to TAdvSmoothStepControl?

Do you want a special action when clicking with the right-mouse button?
3

Yes I'm referring to TAdvSmoothStepControl, sorry. I just don't want the right mouse click to do any actions.

4

Please try the following code:


var
  Form1: TForm1;
  mb: TMouseButton;

implementation

{$R *.dfm}

procedure TForm1.AdvSmoothStepControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  mb := Button;
  AdvSmoothStepControl1.ReadOnly := (mb = mbRight);
end;

procedure TForm1.AdvSmoothStepControl1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  AdvSmoothStepControl1.ReadOnly := false;
end;

5

Thank you, fine workaround