請問各位前輩.... 我想在Grid上框格內顯示多個欄位資料... 每個框格內會有多行且多個欄位..... 例如.... ┌──────┬──────┐ │asd 1/6│dwq 2/6│ │ │ │ │dsw sad qbq│xxx efd cwd│..... └──────┴──────┘ 現有元件好像做不到.... 不知道該怎麼做.... 拜託各為前輩幫幫忙.....很急...

請問  Grid 是   STRINGGRID?      還是  DBGRID?    

------
︿︿

為什麼格子跑掉了?? 在畫一次... ┌─────┬─────┐ │asd____1/6│asd____2/6│ │xs__wr__qb│xs__wr__qb│ └─────┴─────┘ ps:_(底線)代表空白..

都沒關係....只要能做出來就可以了..呵呵 能DBGrid是比較好... 因為Grid中的值是要從資料庫來的....

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State: TGridDrawState);    var Text:string; begin    Text:=StringGrid1.Cells[ ACol, ARow]  ;   DrawText(StringGrid1.Canvas.Handle, PChar(Text), Length(Text), Rect,DT_WORDBREAK);    end;    

------
︿︿

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;   Field: TField; State: TGridDrawState);    var Text:string; begin     Text:=  Field.AsString ;  DrawText(DBGrid1.Canvas.Handle, PChar(Text), Length(Text), Rect,DT_WORDBREAK);    end;    

------
︿︿

cmf前輩.... DrawText(DBGrid1.Canvas.Handle, PChar(Text), Length(Text), Rect,DT_WORDBREAK); 這段編譯時會出現Error??我不知道是哪裡的問題.. 我是用D5 和D6 try過

請問 錯誤訊息是什麼? 麻煩 SHOW 出來一下    

------
︿︿

cmf前輩... ErrorMessage: Constant object cannot be passed as var parameter

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);    var Text:string; r:TRECT; begin    Text:= Field.AsString ; r:=rect; DrawText(DBGrid1.Canvas.Handle, PChar(Text), Length(Text), r,DT_WORDBREAK);    end;         發表人 - cmf 於 2003/02/07 13:24:04

------
︿︿

這樣就可以了... 再請問cmf前輩.... 可以控制DBGrid的Cell的高度嗎??? 還有是否可以將資料感知加到StringGrid中.....

可以控制DBGrid的Cell的高度嗎??? 可以 還有是否可以將資料感知加到StringGrid中..... 可以

------
︿︿

那在請問cmf大大 在DBGrid的Cell是以自行大小來決定高度,那如何在折行後來改變Cell的高度?? 還又就是.... 在StringGrid中要如何加上資料感知?? 比如要放入一個Dataset??? 謝謝.....^_^|||

在DBGrid的Cell是以自行大小來決定高度,那如何在折行後來改變Cell的高度?? 還又就是....     property RowHeights[Index: Longint]: Integer; 在StringGrid中要如何加上資料感知?? 比如要放入一個Dataset??? 請參考 DBGRID SOURCE

------
︿︿

但是cmf大大.... DBGrid 沒有RowHeights[Index: Longint]: Integer; 這個property ????

type TDBGrid=class(DBGrids.TDBGrid) public   property RowHeights; end;        TForm1 = class(TForm) DBGrid1: TDBGrid; Table1: TTable; DataSource1: TDataSource; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;         發表人 - cmf 於 2003/02/13 09:22:04

------
︿︿

請於發表主題處,詳細描述您的問題重點, 如:"請教如何於Delphi5安裝INDY9.0", 請勿填寫不良主題如:"很急!求救!"等無意義的主題名稱! 發表人 - cmf 於 2003/02/21 20:09:33

------
︿︿