[karolpyt]

Hello,

I put on form three components: TsSkinManager, TsSkinProvider and TsScroolBar.

I set anyone skin, and set sbVert.Kind=sbVertical.

And now, this is my simple procedure:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;

WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

begin

inherited;

if WheelDelta <> 0 then

begin

sbVert.Position:=sbVert.Position+2;

end;

end;

When I mouse wheel down, scrollbar is blinking. Can You check it and help?

When I go mouse over scrollbar and then I use mouse wheel everything's good.

TIA

[karolpyt]

OK, I know how to fix the problem.

In procedure FormMouseWheel I added

SendMessage(sbVert.Handle, WM_NCHITTEST,0,0);

[Support]

Hello!

This problem will be solved in the nearest release, I think.

[Author]

Posts