2 Trackbary zależne od siebie

0

Witam, zastanawiam się nad pewną rzeczą, jak zmodzić takie cuś, że po przesunięciu Trackbar1 o jakąś pozycje w prawo Trackbar2 automatycznie przsuwa się o tą samą pozycję w lewo, i na odwrót ma działać oczywiście tak samo, proszę o jakieś sugestie.

0

a Trackbar.OnChange to do czego jest ;-)
to mniej więcej coś takiego bedzie:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Trackbar2.Position := Trackbar1.Position;
end;

I wtedy oba sie naraz posuwaja jak poruszasz pierwszym(TrackBar1).

0

nie do końca o to chodzi, w tym przypadku oba beda sie przesuwac tak samo, a mi chodzi ze ruszajac pierwszym w prawo(lewo) drugi bedzie sie ruszal w lewo(prawo) o ta sama pozycje...

0

hmmmm...
to trudniej, ale da sie:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
trackbar2.Position := Trackbar1.Max - Trackbar1.Position;
end;

tylko trzeba postarać się aby oba mialy taki sam parametr Min i Max(i ew. mialy ten suwak na samym środku)

PZDR
Hommi

0

o to chodzilo, dzieki Hommi, pozdrawiam.

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