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.Проект с данным примером:
Post's attachments
Calculate on the Form.zip 3.81 kb, 1462 downloads since 2015-05-20
Dmitry.