处理数据栅格的编辑框

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

(*//

标题:处理数据网格的编辑框

说明:示例添加焦点颜色;获取还没有提交到数据集的字段文本

设计: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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航