trackbar

0

mam 2 track bary i chce żeby
if trackbar1.position + trackbar2.position = 20 then
żeby można było przesunąć oba tylko do tyłu

wie ktoś jak to zrobić?

0

mam 2 track bary i chce żeby
if trackbar1.position + trackbar2.position = 20 then
żeby można było przesunąć oba tylko do tyłu

wie ktoś jak to zrobić?

użyj OnChange i sprawdzaj

0

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
IF Trackbar1.position + Trackbar2.Position > 20 Then Trackbar1.position := 20- Trackbar2.Position ;
Trackbar2.SelEnd := 20- Trackbar1.Position ;
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
IF Trackbar1.position + Trackbar2.Position > 20 Then Trackbar2.position := 20- Trackbar1.Position ;
Trackbar1.SelEnd := 20- Trackbar2.Position ;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0