ProgressBar jak TrackBar

Odpowiedz Nowy wątek
Lady smss f
2009-02-26 14:52
Lady smss f
0

Witam , w jaki sposób mogę zrobić jakby regulowany ProgressBar który będzie pełnił rolę taką jak TrackBar

Dziękuje

Pozostało 580 znaków

Opi
2009-02-26 15:19
Opi

Rejestracja: 15 lat temu

Ostatnio: 2 miesiące temu

0
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;

Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0