Topic: [Скрипт] Вычисление на форме
Вычисление на форме (frmZakaz)
Допустим есть текстовые поля, в которых содержится цена продукта (edCost) и его количество (edQ), необходимо вычислить Итого (edTotal).
procedure CalculateTotal;
begin
frmZakaz.edTotal.Value := frmZakaz.edCost.Value * frmZakaz.edQ.Value; // calculate
end;
procedure frmZakaz_edQ_OnChange (Sender: string);
begin
CalculateTotal;
end;
procedure frmZakaz_edCost_OnChange (Sender: string);
begin
CalculateTotal;
end;
begin
end.
Проект с данным примером: