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ć?
- Rejestracja:ponad 22 lata
- Ostatnio:ponad 9 lat
- Postów:481
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;
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.