W jaki sposób zrobić ze zwykłego Progressbara, coś na style TrackBara, czyli sterowanie paskiem postępu za pomocą myszki ?
0
0
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
0
Dzięki greenmag :)
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.