1 Topic by RZ-007 (edited by RZ-007 2015-11-30 18:06:33)

  • Registered: 2015-11-28
  • Posts: 160

Topic: Вычисления на Formе.

Дмитрий есть способ избежать вычисл. поля...
а воспользоваться скриптом?
на Form2(новая запись) в Edit1 вводим любое число...
и если это число имеет запятую в Edit2 округляет его!
например: ввели в Edit1 1,45678 в Edit2 получилось 1
----------------ввели в Edit1 25,5600 в Edit2 получилось 26
если есть под рукой скрипт, буду очень признательным!!!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вычисления на Formе.

создайте событие OnExit для компонента Edit1, код будет таким

procedure Form2_Edit1_OnExit (Sender: string);
begin
    Form2.Edit1.Value := Round(Form2.Edit1.Value);
end;

т.о. значение в компонентн будет округлено при потере фокуса ввода в нем.


также для компонента Edit1 рекомендую установить свойство NumbersOnly=True, чтобы можно было ввести только число

Dmitry.
  • Registered: 2015-11-28
  • Posts: 160

Re: Вычисления на Formе.

Огромное СПАСИБО!