Einzelnen Beitrag anzeigen

Benutzerbild von Binärbaum
Binärbaum

Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Slider Problem

  Alt 18. Mär 2005, 00:33
Ist eigentlich eine einfache Sache. Du musst nur beachten, dass, wenn du die Bewegungen 1:1 umsetzen willst, dass es dann nicht funktioniert, da der erste Trackbar 200 mögliche Positionen hat, die anderen beiden aber nur 100.
Wenn ich dein Problem also richtig verstanden habe, dann könnte man das so realisieren:
Delphi-Quellcode:
procedure TForm1.Slider1Change(Sender: TObject);
begin
  Slider2.Position := 50 - (Slider1.Position div 2);
  Slider3.Position := -50 - (Slider1.Position div 2);
end;
MfG
Binärbaum
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
  Mit Zitat antworten Zitat