怎么取得正在 在 BGrid 输入的 内容

本文介绍了一个Delphi应用程序中如何处理DBGrid组件的编辑框,包括获取当前处于编辑状态的字段文本及设置编辑框的颜色。通过提供的源代码示例,展示了如何在DBGrid进入编辑模式时为编辑框添加焦点颜色,并读取未提交到数据集的字段文本。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 
(*//
标题
:处理数据网格的编辑框
说明
:示例添加焦点颜色 ; 获取还没有提交到数据集的字段文本
设计
:Zswang
日期:
2002-03-31
//*)
///////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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值