delphi 中 关于memo 控件的小问题

delphi 中 关于memo 控件的小问题

如果你想用DBMemo来实现这功能，虽然是可以但是效果并不好，其做法如下：
1.首先不设置dbmemo的DataSource属性。
2.在button的onclick事件上设置dbmemo的dataSource属性和Datafield属性。
3.在DBGrid的OnCellClick事件上设置dbmemo的dataSource属性为nil。
例程：
//按钮的Onclick事件
procedure TForm1.Button1Click(Sender: TObject);
begin
dbmemo1.DataSource:=dataSource1;
dbmemo1.DataField:='fname';
dbmemo1.DataSource:=nil;
end;
//Dbgrid的CellClick事件
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
dbmemo1.DataSource:=nil;
end;
但这样的做法效果明显不太好，因为在dbmemo里面的值还是会出现一下再消失。所以建议将dbmemo改为memo。其实现方法如下：
//button的click事件中写上这个就可以了，其中fields[X]表示你想显示dbGrid里面的那一个字段。
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text:=dbgrid1.Fields[1].AsString;
end;