Witam , w jaki sposób mogę zrobić jakby regulowany ProgressBar który będzie pełnił rolę taką jak TrackBar
Dziękuje
Witam , w jaki sposób mogę zrobić jakby regulowany ProgressBar który będzie pełnił rolę taką jak TrackBar
Dziękuje
procedure TForm1.FormCreate(Sender: TObject);
begin
ProgressBar1.Max := ProgressBar1.Width;
end;
procedure TForm1.ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ProgressBar1.Position := X;
end;