[DELPHI] trackbar problem

0

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

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;

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