Delphi 自动计算金额：单价和数量输入实时更新

您可以使用 Delphi 中的事件处理程序来实现这个功能。首先，您需要在界面上放置两个编辑框和一个按钮。一个编辑框用于输入数量，另一个用于输入单价，按钮用于计算金额。

在事件处理程序中，您可以使用 OnClick 事件来计算金额。首先，获取数量和单价的值，然后计算出金额，并将结果显示在金额编辑框中。

以下是一个示例代码：

procedure TForm1.btnCalculateClick(Sender: TObject);
var
  quantity, price, amount: Double;
begin
  // 获取数量和单价的值
  quantity := StrToFloatDef(edtQuantity.Text, 0);
  price := StrToFloatDef(edtPrice.Text, 0);

  // 计算金额
  amount := quantity * price;

  // 将金额显示在金额编辑框中
  edtAmount.Text := FloatToStr(amount);
end;

然后，将按钮的 OnClick 事件设置为 btnCalculateClick。

最后，您可以在数量编辑框和单价编辑框的 OnChange 事件中调用相同的计算金额的代码，以便在输入数量或单价时自动更新金额。

procedure TForm1.edtQuantityChange(Sender: TObject);
begin
  btnCalculateClick(Sender);
end;

procedure TForm1.edtPriceChange(Sender: TObject);
begin
  btnCalculateClick(Sender);
end;

这样，当您输入数量或单价时，金额会自动计算并显示在金额编辑框中。