Einzelnen Beitrag anzeigen

Bernd29bln

Registriert seit: 28. Feb 2005
Ort: Berlin
281 Beiträge
 
Delphi 7 Professional
 
#1

Slider Problem

  Alt 17. Mär 2005, 20:07
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]
Bernd
  Mit Zitat antworten Zitat