各位大大，小弟有一事不明，為何在DBGrid的Cell中無法編輯memo的內容， 參考了諸多文章，只看到能「顯示」memo的內容，實無法在Cell中輸入memo， 請勞神相助，多謝！

mother9156 你好:    試試以下程式碼  < class="code"> type TDBGrid = class(DBGrids.TDBGrid) protected function CanEditModify: Boolean;override; end; type TForm1 = class(TForm) ........... ........... implementation const ftNonTextTypes = [ftBytes, ftVarBytes, ftBlob,ftGraphic,ftParadoxOle,ftDBaseOle, ftTypedBinary, ftCursor, ftADT, ftArray, ftReference, ftDataSet]; function TDBGrid.CanEditModify: Boolean; begin inherited CanEditModify; end; //我測試的Memo欄位為Memo1,在GetText和SetText加入以下程式碼 procedure TForm1.ADOTable1Memo1GetText(Sender: TField; var Text: String; DisplayText: Boolean); begin Text:=Copy(Sender.Value,1,length(Sender.Value)); end; procedure TForm1.ADOTable1Memo1SetText(Sender: TField; const Text: String); begin Sender.Value:=Text; end;

kevinguo 您好： 先感謝您的回覆，在下試過您的程式碼，好像還是無法在Grid的Cell中 編輯memo欄位，特貼上我的程式碼，尚請過目，謝謝！ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB; type TDBGrid = class(DBGrids.TDBGrid) protected function CanEditModify: Boolean; end; type TForm1 = class(TForm) ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; ADOQuery1class: TStringField; ADOQuery1id: TStringField; ADOQuery1DSDesigner17: TMemoField; procedure ADOQuery1DSDesigner18GetText(Sender: TField; var Text: String; DisplayText: Boolean); procedure ADOQuery1DSDesigner18SetText(Sender: TField; const Text: String); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation const ftNonTextTypes = [ftBytes, ftVarBytes, ftBlob,ftGraphic,ftParadoxOle,ftDBaseOle, ftTypedBinary, ftCursor, ftADT, ftArray, ftReference, ftDataSet]; function TDBGrid.CanEditModify: Boolean; begin inherited CanEditModify; end; {$R *.dfm} procedure TForm1.ADOQuery1DSDesigner18GetText(Sender: TField; var Text: String; DisplayText: Boolean); begin Text:=Copy(Sender.Value,1,length(Sender.Value)); end; procedure TForm1.ADOQuery1DSDesigner18SetText(Sender: TField; const Text: String); begin Sender.Value:=Text; end; end.

kevinguo 您好： 先感謝您的回覆，在下試過您的程式碼，好像還是無法在Grid的Cell中 編輯memo欄位，特貼上我的程式碼，尚請過目，謝謝！ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB; type TDBGrid = class(DBGrids.TDBGrid) protected function CanEditModify: Boolean; end; type TForm1 = class(TForm) ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; ADOQuery1class: TStringField; ADOQuery1id: TStringField; ADOQuery1DSDesigner17: TMemoField; procedure ADOQuery1DSDesigner18GetText(Sender: TField; var Text: String; DisplayText: Boolean); procedure ADOQuery1DSDesigner18SetText(Sender: TField; const Text: String); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation const ftNonTextTypes = [ftBytes, ftVarBytes, ftBlob,ftGraphic,ftParadoxOle,ftDBaseOle, ftTypedBinary, ftCursor, ftADT, ftArray, ftReference, ftDataSet]; function TDBGrid.CanEditModify: Boolean; begin inherited CanEditModify; end; {$R *.dfm} procedure TForm1.ADOQuery1DSDesigner18GetText(Sender: TField; var Text: String; DisplayText: Boolean); begin Text:=Copy(Sender.Value,1,length(Sender.Value)); end; procedure TForm1.ADOQuery1DSDesigner18SetText(Sender: TField; const Text: String); begin Sender.Value:=Text; end; end.

mother9156:     

    ADOQuery1DSDesigner17: TMemoField;
         ^^^^^^^^^^^^^ 這裡的Fieldname是DSDesigner17 
 
procedure ADOQuery1DSDesigner18GetText(Sender: TField;
var Text: String; DisplayText: Boolean);
procedure ADOQuery1DSDesigner18SetText(Sender: TField;
const Text: String);     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ GetText和 SetText 卻是 DSDesigner18      

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=76750 我把範例程式和資料庫上傳了,參考看看 

kevinguo兄，您好： 可以執行了，真不知如何感謝您！ 小弟另有一求，能否在編輯時，加上 換行的功能，那就完美了，感恩不盡！

mother9156您好:    要做到直接在TDBGrid裡編輯有換行功能,我功力不夠,看有沒有其他先進可以指導一下  或是你可以考慮加一個 > < class="code"> procedure TForm1.DBGrid1KeyDown( Sender: TObject; var Key: Word; Shift: TShiftState); begin //按Enter呼叫Memo Form if Key = VK_RETURN then begin if DBGrid1.SelectedField = ADOQuery1DSDesigner17 then with TMemoForm.Create(nil) do try Memo1.Text := ADOQuery1DSDesigner17.AsString; ShowModal; ADOQuery1.Edit; ADOQuery1DSDesigner17.AsString := Memo1.Text; finally Free; end; end; end; 發表人 - kevinguo 於 2005/08/14 22:09:29

kevinguo兄，您好： 其實您的作法已可滿足我的需要， 再次感謝您！