Hello, I am curious if I can write better progressbar control with the mouse ?
procedure TForm1.JvSpecialProgress1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
newPos := Round(X * JvSpecialProgress1.Maximum / JvSpecialProgress1.ClientWidth);
JvSpecialProgress1.Position := newPos;
end;
end;