ProgressBar ala TrackBar

W jaki sposób zrobić ze zwykłego Progressbara, coś na style TrackBara, czyli sterowanie paskiem postępu za pomocą myszki ?

chyba najprostszy sposob:

zadeklaruj zmienna

var Klik: Boolean;

a potem wypelnij zdarzenia:

procedure TForm1.ProgressBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 if Klik then  ProgressBar1.Position := X;
end;

procedure TForm1.ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 Klik := True;
 ProgressBar1.Position := X;
end;

procedure TForm1.ProgressBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 Klik := False;
end;

// pod warunkiem ze wlasciwosc max rowna jest width
// a jak ma byc inaczej to kombinuj - juz wiesz jak sie za to zabrac

Dzięki greenmag :)