OnExit事件 OnChange事件

最新推荐文章于 2020-06-04 19:50:09 发布

weixin_30586085

最新推荐文章于 2020-06-04 19:50:09 发布

阅读量120

点赞数

文章标签：移动开发

原文链接：http://www.cnblogs.com/studypanp/p/4918721.html

版权

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;

转载于:https://www.cnblogs.com/studypanp/p/4918721.html