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ć?
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ć?
mam 2 track bary i chce żeby
if trackbar1.position + trackbar2.position = 20 then
żeby można było przesunąć oba tylko do tyłuwie ktoś jak to zrobić?
użyj OnChange i sprawdzaj
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;