Question

dbgrideh中文本多行显示问题

我的数据库中有文本型字段，每字段最多可有50个汉字，请问在dbgrideh中如何多行显示出该字段中的所有文字（列宽已确定）？

Answer 1

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

DBGrid1.DefaultDrawing := False ;
//这一段代码码中，主要设定了如下三项内容：
//1) 默认行高
TStringGrid(DBGrid1).DefaultRowHeight := 70 ;

//2) 还原 heading 的行高
TStringGrid(DBGrid1).RowHeights[0] := 20 ;

//3) 若允许用户自行更改列宽，整个 grid的
// 行高就都会还原，所以需要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;

————————————————————————————
更多内容请访问我的空间：http://hi.baidu.com/bdbk

Answer 2

DBGridOptions : TDBGridOptions;
begin