Vertikale TrackBar

[mruecker]

Hallo,

ich sitze hier wahrscheinlich gerade ziemlich auf der Leitung.
Ich benötige in meinem Programm eine vertikale TrackBar, bei der Min unten und Max oben ist....

Hat jemand von Euch einen Tipp, wie ich das hinbekommen kann ?

Gruss und Danke...
Markus...

[Matze]

TrackBar1.Orientation:=trVertical;

[mruecker]

Zitat von Matze:

TrackBar1.Orientation:=trVertical;

Stimmt, aber da ist Min oben und Max unten !!!
Das ist ja genau mein Problem....

[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.

[mruecker]

Zitat von 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.

Danke, genau das war's.
Ich sag' ja, ich hab' voll auf der Leitung gesessen

Gruss,
Markus...