Procedure On..Change
При изменении поля пользователем

Обработчик On..Change вызывается при изменении значения поля пользователем.

Procedure OnSummaChange;
Begin
  If Cnt<>0 Then Price := RoundDiv(Summa, Cnt, 2);
End;

Procedure OnPriceChange;
Begin
  Summa := RoundMul(Price, Cnt, 2);
End;

Procedure OnCntChange;
Begin
  OnPriceChange;
End;

© RTIT