Objekt an Trackbar Position ausrichten

[Sir Rufo]

Hier mal eine Methode um ein Control an der Position der TrackBar auszurichten

Delphi-Quellcode:

procedure TForm1.ControlOnTrackBarPosition( AControl : TControl; ATrackBar : TTrackBar );
const
  C_TRACKBAR_BORDER_LEFT = 12;
  C_TRACKBAR_BORDER_RIGHT = 12;
var
  LLeft : Integer;
begin
  LLeft := ATrackBar.Left + C_TRACKBAR_BORDER_LEFT + Round( ( ATrackBar.Width - C_TRACKBAR_BORDER_LEFT - C_TRACKBAR_BORDER_RIGHT ) * ATrackBar.Position /
      ( ATrackBar.Max - ATrackBar.Min ) );
  AControl.Top := ATrackBar.Top - AControl.Height;
  AControl.Left := LLeft - AControl.Width div 2;
end;

Du willst ein Image daran ausrichten, dann einfach

Delphi-Quellcode:

procedure TForm1.TrackBar1Change( Sender : TObject );
begin
  ControlOnTrackBarPosition( Image1, Sender as TTrackBar );
end;

und schon wandert das Image ganz brav an der TrackBar entlang, zentriert über dem Pinörpel