MEMO字段内容太多,在表格中放不下,所以DBGRID没有这项功能。
解决方案 »
- Left side cannot be assigned to
- 关于数据赋值的问题
- 主从表中的从表关联的DBGrid的数据显示问题,400分求解
- 一个导入数据的问题,急
- 我安装了一大堆vcl控件,会不会影响以后安装包的大小
- 怎样让dbgrid的的某一列可编辑,其他列不能编辑。
- 请教树型表结构查询和删除的问题(彻底删除或全部查询出来)?
- delphi 的中文版
- ???怎样利用API函数DragQueryFile()将其它文件拖放到我的程序上???
- 想样EDIT1控件输入的任合东东都显示*怎么实现?(就向密码输入框那样!)
- 一个关于三层结构(DCOM)的问题?
- 关于 QuickReport 打印正常,但预览有问题(缺表格线?),如何解决?
interfacetype
TMainForm = class(TForm)
//....
//....
private
procedure DoOnShowTextField(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure SetTextFieldEvent(const ADatSet: TBDEDataSet);
//....
//....
end;implementationprocedure TMainForm.DoOnShowTextField(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
Text := Sender.AsString;
end;procedure TMainForm.SetTextFieldEvent(const ADatSet: TBDEDataSet);
var
i: integer;
begin
with ADatSet do
begin
DisableControls;
try
for i := 0 to Fields.Count - 1 do
if Fields[i] is TMemoField then
Fields[i].OnGetText := DoOnShowTextField;
finally
EnableControls;
end;
end;
end;//然后在相应的数据集的AfterOpen事件中调用 SetTextFieldEvent(数据集);