Slider Problem

[Bernd29bln]

hallo,

ich habe 3 Trackbars wen ich die erste bewege sollen die andren beiden entgegen gesetzt laufen wie bekomme ich das hin . also die erste hat den wert min -100 max 100 bei null
müsten sich die anderen in der mitte treffen . hab ihr ne lösung für das problem

Delphi-Quellcode:

procedure TForm1.Slider1Change(Sender: TObject); 
begin 
Slider2.Position := Slider1.Position; // Wert Min -100 Max 100 
Slider3.Position := Slider1.Position; 
end; 

procedure TForm1.Slider2Change(Sender: TObject); 
begin; 
Volume1.Volume := Slider2.Position ; // Wert Min 0 Max 100 
end; 

procedure TForm1.Slider3Change(Sender: TObject); 
begin; 
Volume2.Volume := Slider3.Position ; // Wert Min -100 Max 0 
end;

Gruss Bernd

[edit=Luckie]Delphi-Tags ergänzt. Mfg, Luckie[/edit]