請教各位前輩﹒    DBGrid元件通過DataSource元件正常連接上資料表后﹐該如何處理使DBGrid的標題(Title)可顯示兩行﹐甚至多于兩行﹖ 或者說資料表欄位中某欄位的名稱很長﹐希望在DBGrid元件做顯示時﹐能夠將欄位名顯示為兩行或者更多行﹐該如何處理﹖    謝謝﹗    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

參考: http://www.swissdelphicenter.ch/en/showcode.php?id=1653

type 
  TAccessDBGrid = class(TDBGrid);     procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; 
  const Rect: TRect; DataCol: Integer; Column: TColumn; 
  State: TGridDrawState); 
var 
  S1, S2: String; 
begin 
  with TAccessDBGrid(DBGrid1) do 
  begin 
    // Increase title height 
    // Titelhöhe vergrössern 
    RowHeights[0] := 32;         Canvas.Brush.Style := bsClear;         // Column Titles 
    // Spalten Titel setzen 
    case Column.Index of 
    0: begin 
         Column.Title.Caption := ''; 
         S1 := 'Row 1'; 
         S2 := 'Row 2'; 
       end; 
    1: begin 
         Column.Title.Caption := ''; 
         S1 := 'Row 1'; 
         S2 := 'Row 2'; 
       end; 
    end; 
    // write title: 
    // Titel ausgeben: 
    Canvas.TextOut(Rect.Left 2, 2, S1); 
    Canvas.TextOut(Rect.Left 2, 16, S2); 
  end; 
end; 

--- 歡迎光臨 KTop 研究院

感謝hagar版主大大!    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

hagar版主： 如果我要在同等前題下實現附檔的顯示(Title)，應該如何來寫呢？ 謝謝！    jacky jacky

------
jacky

Title 劃線部份參考紅色部份的碼, 而文字就參考原來的部份做:

type 
  TAccessDBGrid = class(TDBGrid);     procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; 
  const Rect: TRect; DataCol: Integer; Column: TColumn; 
  State: TGridDrawState); 
var 
  S1, S2: String; 
begin 
  with TAccessDBGrid(DBGrid1) do 
  begin 
    RowHeights[0] := 32; 
    case Column.Index of 
    0: begin 
         Column.Title.Caption := ''; 
         S1 := 'Row 1'; 
         S2 := 'Row 2'; 
       end; 
    1: begin 
         Column.Title.Caption := ''; 
         S1 := 'Row 1'; 
         S2 := 'Row 2'; 
       end; 
    end; 
    Canvas.Brush.Style := bsClear; 
    Canvas.TextOut(Rect.Left 2, 2, S1); 
    Canvas.TextOut(Rect.Left 2, 16, S2); 
  end; 

  with DBGrid1 do
    if Rect.Top = 33 then begin // 只劃 Title 這一 row, 33 值是因為在上面指定第一 row 的高度為 32
      Canvas.Pen.Color := clBlack; // 指定畫筆的顏色
      Canvas.Pen.Width := 1; // 指定畫筆的粗細          // Title 畫分為上下兩格的那條橫線
      Canvas.MoveTo(Rect.Left, 16); // 畫線的起點
      Canvas.LineTo(Rect.Right, 16); // 畫線的終點          // Title 下半部畫分為左右兩格的那條直線
      Canvas.MoveTo(Rect.Left   (Rect.Right - Rect.Left) div 2, Rect.Top div 2);
      Canvas.LineTo(Rect.Left   (Rect.Right - Rect.Left) div 2, Rect.Top);
    end;
end; 

--- 歡迎光臨 KTop 研究院 發表人 -

要用InfoPower方達成,絕無廣告嫌疑,因為我是用InfoPower4000, 全部欄位型態都可,還可用Master-Detail顯示資料(我沒用),詳細 請查該公司網站http://www.woll2woll.com/只是便宜.

可以免費使用嗎？ 我下載完並安裝好了之後應該如何使用呢？能否請樓上這位仁兄指點一下， 在下十萬分的感謝！ jacky 發表人 - guohua_fu 於 2003/10/16 09:25:42

------
jacky

站內有看過有人post過用Search看看.

InfoPower 不是免費的, 不過也試用版 功能齊全, 但只能在 IDE 底下 run http://www.woll2woll.com/downloadinfo.html    --- 歡迎光臨 KTop 研究院

引言: 要用InfoPower方達成,絕無廣告嫌疑,因為我是用InfoPower4000, 全部欄位型態都可,還可用Master-Detail顯示資料(我沒用),詳細 請查該公司網站http://www.woll2woll.com/只是便宜. < face="Verdana, Arial, Helvetica"> 請問一下，這個把title分成兩半要如何用程式碼完成？ 我也是使用infopower，因為我要動態改變表格， 但不知道要如何做？請問有範例可以參考嗎？謝謝！ 發表人 -