Delphi DBGridEh 自动计算金额和单价

在Delphi的DBGridEh中，您可以使用事件和计算公式来实现当输入数量和单价时自动计算金额和单价的功能。

首先，您需要使用DBGridEh的事件来捕获用户输入的操作。在DBGridEh上双击事件以创建OnCellChange事件处理程序。在OnCellChange事件处理程序中，您可以获取用户输入的数量和单价，并计算金额和单价。

例如，以下是一个示例代码来实现这个功能：

procedure TForm1.DBGridEh1CellChange(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
var
  Quantity, Price, Amount: Double;
begin
  if (ACol = QuantityColumn.Index) or (ACol = PriceColumn.Index) then
  begin
    // 获取数量和单价
    Quantity := StrToFloatDef(DBGridEh1.Fields[QuantityColumn.Index].AsString, 0);
    Price := StrToFloatDef(DBGridEh1.Fields[PriceColumn.Index].AsString, 0);

    // 计算金额
    Amount := Quantity * Price;

    // 更新金额字段
    DBGridEh1.Fields[AmountColumn.Index].AsFloat := Amount;
  end;
end;

在上述示例代码中，DBGridEh1是您的DBGridEh组件，QuantityColumn、PriceColumn和AmountColumn是分别表示数量、单价和金额的列。

这样，当用户在数量和单价列输入时，金额将会自动计算并显示在金额列中。