Mam w trackbar ustawione OnChange jakieś instrukcje.
Mój problem polega na tym że wykonują się one nawet jeżeli jedynie kliknę na trackbar,a ja chce żeby wykonwaly się jedynie podczas przesuwania suwaka w trackbarze.
0
0
Możesz obejść to np. tak:
var
TrackBarPos: Integer;
procedure TForm1.TrackBar1Enter(Sender: TObject);
begin
TrackBarPos:= TrackBar1.Position;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position <> TrackBarPos then begin
// Twój kod
TrackBarPos:= TrackBar1.Position;
end;
end;
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.