Vertikale TrackBar

[Matze]

Oh, dann kann ich dir nicht direkt helfen.

Ich würde es so lösen:

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
var x: integer;
begin
  x:=TrackBar1.Max-TrackBar1.Position;
  Label1.Caption:=IntToStr(x);
end;

Nur so als Beispiel.