[utro35]

Здравствуйте.
Подскажите как сделать, чтобы в Edit при движении ползунка TrackBar отображались не целые числа (1,2,3...) а с точкой (0.1,0.2,0.3 и т.д.)

И еще, как то нужно сделать, чтобы при увеличении значения TrackBar уменьшался Timer.Interval

[angvelem]

В чём проблема? Используй событие OnChange TrackBar-а.

Код:

  Edit1.Text := Format('%.f', [TrackBar1.Position / 10]);
  Timer1.Interval := TrackBar1.Position;

[utro35]

Спасибо.
Только вот это работает не так как нужно.

Поясню что мне надо:
У меня два Edit. В одном я с помощью регулятора TrackBar задаю расход пара в минуту (кг/мин), там как раз должны появляться цифры с запятой: 0,1...0,2...0,3 и т.д.
А в другом Edit отображается общий расход пара, который реализован с помощью таймера.
Т.е. при увеличении значения в первом Edit циферки во втором Edit должны быстрее сменять друг друга. Т.е. Timer.Interval уменьшается

[Pilot_Red]

подумать то не хотите...
Timer1.Interval :=TrackBar1.max-TrackBar1.Position;

[utro35]

Спасибо, однако не получается чтобы при движении ползунка в Edit появлялись цифры с запятой: 0,1...0,2...0,3 и т.д. , появляются только целые 1..2...3....

[nixel]

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

Спасибо, однако не получается чтобы при движении ползунка в Edit появлялись цифры с запятой: 0,1...0,2...0,3 и т.д. , появляются только целые 1..2...3....

код обработчика целиком?

[angvelem]

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

Спасибо, однако не получается чтобы при движении ползунка в Edit появлялись цифры с запятой: 0,1...0,2...0,3 и т.д. , появляются только целые 1..2...3....

Странно, у меня получается. Наверное у вас Дельфи другой.

[utro35]

Уважаемый angvelem не могли бы Вы прислать исходник того что у Вас получается,
т.к. с этим
Edit1.Text := Format('%.f', [TrackBar1.Position / 10]);
что то никак.
Может еще что то в свойствах TrackBar нужно отметить?
Какой мин и макс?

[angvelem]

Да какой там исходник, вот весь код:

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Edit1.Text := Format('%.1f', [TrackBar1.Position / 10]);
end;

настройки min и max по-умолчанию, то есть 1 и 10, плюс первоначально выставлен 0 в Edit-е. Работает одинаково, что в 7-ке, что в XE2.
Выделенная 1, чтобы не выводился лишний 0.

Дополнительно: если в TrackBar-е, Max = 10, то приведённого кода достаточно. Но лучше делить на TrackBar.Max и, возможно убрать 1 из '%1f'. Также, обязательно использовать символ /, не div.

[utro35]

Ну вот так все получилось!
Большое спасибо.