http://delphi.ktop.com.tw/topic.php?topic_id=74974 各位大蝦，我在上面網頁所提DBGrid控制項的顯示text、ntext 等欄位的問題，代碼都是Delphi的，小弟研究了幾天也不知其所以然，只知道有兩種方法可以實現小弟要求的功能，不知道那位大蝦能給小弟一些BCB的代碼，讓小弟能參考一下，感激不盡，先謝謝各位了！

大蝦們，是BCB不能作還是沒有大蝦會？

現在Text = Sender->AsString的方法我已經會了，我想通過把DBMemo控制項嵌入DBGrid的單格的辦法實現，不知道該如何實現

jean2004：如果你只是要轉
http://delphi.ktop.com.tw/topic.php?topic_id=74974
裡面的
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  F:TField;
  ACanvas : TCanvas;
begin
  f:= Column.Field;
  // 非Memo型態 請離開
  If Not f.DataType IN [ftMemo, ftFmtMemo] Then Exit;
  ACanvas := TDBGrid(Sender).Canvas;
  //===========================
  //  在此可以設定字體背景顏色等資訊
  //===========================
  // 將Memo欄位用String畫出來
  ACanvas.textrect(Rect,Rect.Left,Rect.Top,F.AsString);
end;
為BCB
那就是
void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
  // 僅處理Memo型態
  if (Column->Field->DataType == ftMemo || Column->Field->DataType == ftFmtMemo)
    DBGrid1->Canvas->TextRect(Rect,Rect.Left,Rect.Top,Column->Field->AsString);
}
請參考！並不太複雜。

Andy Chang

------
Andy Chang