OnExit事件 OnChange事件

procedure TSetParkForm.edtPrePosExit(Sender: TObject); // 焦点移开 或已操作
begin
  if (G2.RowCount > 0) and (G2.Selected >= 0) then begin // 判断G2是否有数据，且为选中状态
    G1.Enabled := False;
    G2.Enabled := False;
  end;
end;

procedure TSetParkForm.edtPrePosChange(Sender: TObject);    // Edit/Combox改变事件
begin
  if Sender = edtPrePos then begin
    if (G2.RowCount > 0) and (G2.Selected >= 0) then begin // 判断G2是否有数据，且为选中状态
      G2.Cells[2, G2.Selected] := edtPrePos.Text;
    end;
  end;

  if sender = combPNSize then begin
    if (G2.RowCount > 0) and (G2.Selected >= 0) then begin // 判断G2是否有数据，且为选中状态
      G2.Cells[4, G2.Selected] := RemoveSgin(combPNSize.Text);
    end;
  end;
end;