处理数据栅格的编辑框

(*//
标题:处理数据网格的编辑框
说明:示例添加焦点颜色;获取还没有提交到数据集的字段文本
设计:Zswang
日期:2002-03-31
支持:wjhu111@21cn.com
//*)

///Begin Source
function GetDBGridEdit(mDBGrid: TDBGrid): TEdit;
var
  I: Integer;
begin
  Result := nil;
  if not Assigned(mDBGrid) then Exit;
  if not mDBGrid.EditorMode then begin
    mDBGrid.EditorMode := True;
    mDBGrid.EditorMode := False;
  end;
  with mDBGrid do for I := 0 to Pred(ComponentCount) do
    if Components[I] is TCustomEdit then begin
      Result := TEdit(Components[I]);
      Break;
    end;
end; { GetDBGridEdit }

function GetDBGridEditText(mDBGrid: TDBGrid): string;
var
  vEdit: TEdit;
begin
  vEdit := GetDBGridEdit(mDBGrid);
  if Assigned(vEdit) then
    Result := vEdit.Text
  else Result := '';
end; { GetDBGridEditText }
///End Source

///Begin Demo
procedure TForm1.DBGrid1Enter(Sender: TObject);
var
  vEdit: TEdit;
begin
  vEdit := GetDBGridEdit(TDBGrid(Sender));
  if Assigned(vEdit) then vEdit.Color := clYellow;
end;

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Caption := GetDBGridEditText(TDBGrid(Sender));
end;
///End Demo

  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

weizhi

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值