Вопрос по взаимодействию между собой TrackBar'ов

[yaryk1231]

Доброй ночи, возникла проблема с TrackBar.
В чем заключается: У меня есть 3 ползунка "TrackBar" допустим a, b, c, d.
Каждый из них выводит свое значение в отдельный Label.
и есть допустим формулы b=a*d ; c=a*d
Как сделать так, что бы при уменьшении значения TrackBar-с уменьшалось значение в TrackBar-b ?

P.S
как настроить таймер на ежесекундное обновления значений TrackBar в Label ?

[Sciv]

Сообщение от yaryk1231

Как сделать так, что бы при уменьшении значения TrackBar-с уменьшалось значение в TrackBar-b?

procedure TForm1.TrackBarCChange(Sender: TObject);
begin
  TrackBarB.Position := TrackBarC.Position;
end;

procedure TForm1.TrackBarBChange(Sender: TObject);
begin
  TrackBarC.Position := TrackBarB.Position;
end;

Сообщение от yaryk1231

как настроить таймер на ежесекундное обновления значений TrackBar в Label ?

// Где-нибудь в OnCreate формы:

Timer1.Interval := 1000;
Timer1.Enabled := true;

// обновление значений

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  LabelA.Caption := IntToStr(TrackBarA.Position);
  LabelB.Caption := IntToStr(TrackBarB.Position);
end;

[kropotkina-alice]

как настроить таймер на ежесекундное обновления значений TrackBar в Label ?

А зачем таймер-то?
Изменяйте текст в метке по событию OnChange TrackBar-а и будет вам вечный кайф...

[Sciv]

Сообщение от kropotkina-alice

А зачем таймер-то?

Ну например, чтобы отображать ежесекундно показания какого-нибудь датчика. Никто же не говорил, что оба вопроса по одним и тем же трекам

[kropotkina-alice]

Сообщение от Sciv

Никто же не говорил, что оба вопроса по одним и тем же трекам

Ну, значит я неправильно поняла фразу

как настроить таймер на ежесекундное обновления значений TrackBar в Label ?

[Sciv]

Топикстартер задумал каскадное обновление трекбаров