DBGrid中顯示多行的方法

【作者】TATSU
【內文】來源:http://delphi.ktop.com.tw/topic.asp?topic_id=45682

Q:
當DBGrid的資料內容長度超過欄寬時，自动换行。象EXCEL中的格式设置中选定自动换行的功能那样。看到过这种方法的实现，但不知道怎么作出来的?

A:

procedure TForm1.FormShow(Sender: TObject);
var
  DBGridOptions : TDBGridOptions;
begin

  DBGrid1.DefaultDrawing := False ;

  //這一段程式碼中，主要設定了
  //1) default row height
  TStringGrid(DBGrid1).DefaultRowHeight := 70 ;

  //2) 還原 heading 的 row height
  TStringGrid(DBGrid1).RowHeights[0] := 20 ;

  //3) 如果讓用戶可以自行更改 column 的闊度，整個 grid
  //的 row height 都會還原，所以都用程式碼 disable 。
  DBGridOptions := DBGrid1.Options ;
  Exclude(DBGridOptions,dgColumnResize) ;
  DBGrid1.Options := DBGridOptions ;

end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  drawRect : TRect ;
  StrValue : String ;
  backColor, fontColor : TColor ;
begin
  if  gdSelected in State then
  begin
    backColor := clNavy ;
    fontColor := clWhite ;
  end
  else
  begin
    backColor := clWhite ;
    fontColor := clBlack ;
  end;

  DBGrid1.Canvas.Brush.Color := backColor ;
  DBGrid1.Canvas.FillRect(Rect);

  DBGrid1.Canvas.Font.Color := fontColor ;

  //預先縮小秀字的框架範圍，秀字時讓字與框架留有空間
  drawRect := Rect ;
  InflateRect(DrawRect, -4, -2) ;

  case DataCol of
  0 : strValue := DataSource1.DataSet.fieldByName('PRODUCT_ID').AsString ;
  1 : strValue := DataSource1.DataSet.fieldByName('PRODUCT_DESC').AsString ;
  end;

  DrawText(DBGrid1.Canvas.Handle,
           PChar(strValue),
           Length(strValue),
           DrawRect,
           DT_WORDBREAK) ;

end;