delphi dbgrid的title标题栏的标题显示能不能换行显示 有的字段,标题很长,而数据表里的值就只有一个数字,太占地方,dbgrid的标题能不能两行显示或者三行显示? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 还有,DBGrid下面显示的一列一列字段,能不能分开颜色显示,比如,一列红色一列蓝色? 一列红色一列蓝色的代码:procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);begin if Odd(Field.Index) then DBGrid1.Canvas.Font.Color := clBlue else DBGrid1.Canvas.Font.Color := clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Field.AsString);end; 你要根据字段的类型进行修改文字的显示位置,如数值的你可以显示在Cell的右边。 设置DBGrid的颜色我已经知道怎么做了,让DBGrid的标题换行显示我还是不知道哇@!!! 标题换行,必须inherited,因为标题行同时需要增高,否则如何容纳多行文字?? 谢谢大家,颜色的问题解决了,但是dbgrid换行还是没做出来。 Net牛人基地招人!!! zip加密压缩 StrToIntDef 急求delphi3安装文件!!!! 马甲散100_1 求购酒店管理系统!若有完整可直接使用的,RMB也行! 图片问题 再次请教高手们:请教在PARADOX表中增加一个BZ字段,此字段是备注型的? 是否为Bug,关于SpeedButton的问题? 关于操作注册表的问题!! 访问权限问题 发现TADOQUERY的重大BUG !!!!!!!!
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if Odd(Field.Index) then
DBGrid1.Canvas.Font.Color := clBlue
else
DBGrid1.Canvas.Font.Color := clRed; DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Field.AsString);
end;