Delphi-PRAXiS - Delphi Vertikale TrackBar

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Vertikale TrackBar (https://www.delphipraxis.net/11816-vertikale-trackbar.html)

mruecker

14. Nov 2003 11:58

Vertikale TrackBar

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

14. Nov 2003 12:02

Re: Vertikale TrackBar

Delphi-Quellcode:

TrackBar1.Orientation:=trVertical;

mruecker

14. Nov 2003 12:04

Re: Vertikale TrackBar

Zitat:

Zitat von Matze

Delphi-Quellcode:

TrackBar1.Orientation:=trVertical;

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

Matze

14. Nov 2003 14:56

Re: Vertikale TrackBar

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

14. Nov 2003 15:09

Re: Vertikale TrackBar

Zitat:

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 :oops:

Gruss,
Markus...

Alle Zeitangaben in WEZ +1. Es ist jetzt 08:29 Uhr.