我用DBGrid 显示看不到内容,看到的是(MEMO1)
解决方案 »
- Inc(A, B) PK A := A + B
- teechart简单问题
- image 字段 判断
- 我想放指定目录下的声音文件应该怎么做? sndPlaySound(ExtractFilePath(ParamStr(0))+'1.wav', SND_ASYNC);
- 新学与Service程序,能Install, 不能启动
- 在Delphi中如何写log(23)阿!
- 求教高手
- 怎样让DBLookupComboBox和DBGrid的数据关联起来?若解决立马给分!!!
- intraweb报表打印FastReport解决方案
- 如何才能让dbgril1能正常显示SQL语句中的汉字或者特殊字符?
- 整的我郁闷的很,快来帮我啊
- 【庆祝贴】恭喜三国生了,变大猩猩了,哈哈
在DBGrid的缺省显示方式下,备注类型的字段将显示成“(MEMO)”的形式。
解决方案:
为了能够使得数据被实际显示出来,我们需要写一些代码,对DBGrid做一点功能上的增强。首先,我们要先在数据库中建立一张表,命名为TestTable,这张表中至少要有一个MEMO类型的字段,把它命名为Data。然后我们来给字段的OnGetText事件写一段代码实现上面的需求。操作步骤如下: 1. 把你的TDataset组件与刚才新建的数据库中的TestTable表相连接。 2. 双击TDataset组件来打开字段编辑器(Fields editor)。 3. 添加MEMO字段Data. 4. 选中该字段,在对象检查器中(Object Inspector)双击OnGetText事件建立事件句柄。 编写代码如下: procedure TForm1.DBTableDataGetText(Sender: TField;
var Text: String;
DisplayText: Boolean);
begin
Text := Copy(DBTableData.AsString, 1, 50);
end;
TDataset对象的名字是“DBTable”,MEMO字段的名字是“Data”,因此缺省情况下连接到MEMO字段的TMEMOField名字是“DBTableData”。我们在代码中告诉DBGrid将MEMO字段显示成文本方式,就是把实际的内容显示出来。这里有一个值得注意的地方,因为MEMO字段可以容纳比较多的文本,在DBGrid中全部显示出来的话,DBGrid就会被撑得很大,所以我们做了限制,只是把MEM O中的前50个字符显示出来。 显示的工作完成之后,如果还想对显示出来的文本进行编辑,这在缺省状态下是不可以实现的,我们准备另建一个窗体,在上面放置一个DBMemo组件,用它来对文本进行编辑,思考到这里还有一个需要解决的问题,如何来触发一次编辑过程呢?就用键盘的回车键吧,当记录指针指向这条记录时,按下回车键,则弹出一个窗体,上面的DBMemo组件可以显示并且编辑文本。实现代码如下:procedure TForm1.DBGrid1KeyDown(
Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
//如果按下的是回车键则触发下面的代码
if Key = VK_RETURN then
begin
if DBGrid1.SelectedField = DBTableData then
//建立新的窗体
with TMemoEditorForm.Create(nil) do
try
//读取数据库中的数据用DBMemo来显示
DBMemoEditor.Text := DBTableData.AsString;
ShowModal;
DBTable.Edit;
DBTableData.AsString := DBMemoEditor.Text;
finally
Free;
end;
end;
end;
var Text: String; DisplayText: Boolean);
begin
text:=qry_test.fieldbyname('Description').asstring;
end;
顶,数据移动时,同步更新Memo的内容,由于Memo有滚动条,所以可充分显示超大内容。如果放在网格的一个单独的列中,显然是做不到这一点