社区
Delphi
帖子详情
怎样使得stringgrid中的表头中的文字居中显示,而其后的数据靠左对齐,并小1号字?
tantorplayer
2006-12-04 10:50:42
如题,标题的字大一些,粗体并居中
下面格子里面的数据字小一些,并靠左对齐。
谢了,各位高手。
...全文
387
9
打赏
收藏
怎样使得stringgrid中的表头中的文字居中显示,而其后的数据靠左对齐,并小1号字?
如题,标题的字大一些,粗体并居中 下面格子里面的数据字小一些,并靠左对齐。 谢了,各位高手。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
ahjoe
2006-12-12
打赏
举报
回复
自己画。
qzmp_sc
2006-12-12
打赏
举报
回复
专业接分来了
CACACACACA
2006-12-12
打赏
举报
回复
跟上接分..
nippycn
2006-12-11
打赏
举报
回复
我也要想这个总是哦
oushengfen
2006-12-04
打赏
举报
回复
问题解决了,就贴出来看一下
王集鹄
2006-12-04
打赏
举报
回复
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
//ACol, ARow可以判断是否标题
//DrawText(TStringGrid(Sender).Canvas.Handle, ...);可以绘制文本
end;
纯属环保接分
阿发伯
2006-12-04
打赏
举报
回复
jf
zsr
2006-12-04
打赏
举报
回复
OnDrawCell呗!
tantorplayer
2006-12-04
打赏
举报
回复
问题已解决,跟贴就送分.
Delphi
StringGrid
文
字
居
中
,Titile
字
体变大,Cell添加CheckBox
Delphi
StringGrid
文
字
居
中
Title
文
字
变大,
字
体颜色改变,选
中
行颜色的改变 在Cell
中
添加CheckBox控件 点击实现CheckBox Checked true false
支持多
表头
及单元格合并的
StringGrid
StringGrid
的扩展控件, 在
StringGrid
的基础上增加了: 分别定义每列属性; 支持多层
表头
、
表头
斜线 单元格合并、拆分; 每个单元格可单独设置
字
体、颜色、
对齐
等格式 随意行、列锁定 指定表格背景图片,格线顔色 对每行
数据
提供状态管理(Modified,Inserted,Deleted,Unmodified) 动态插入、删除行列 支持下拉框,按纽等内嵌编辑器,并能自由扩充 支持列头点击排序, 记录Filter过滤
显示
并增加OnEnterCell与OnLeaveCell事件,可得知鼠标光标是否经过某格 支持在设计期间进行编辑,支持直接打印、预览,对于超宽部分能够自动分页。以上有部份功能暂时还未完成。axcom@163.com2005.7.15
delphi,
stringGrid
选
中
显示
对号,否则不
显示
,并居
中
(测试成功)
delphi,
stringGrid
选
中
显示
对号,否则不
显示
,并居
中
(测试成功)
Delphi将
Stringgrid
指定行添加到Memo控件
中
.rar
Delphi将
Stringgrid
指定行添加到Memo控件
中
,选
中
StringGrid
中
的行,点击右下角的“添加”按钮,即可将选
中
的
StringGrid
行
数据
添加到下边的Memo控件
中
显示
。部分源代码如下: procedure TForm1.FormCreate(Sender: TObject); begin
StringGrid
1.Cells[0,0] := '商品编号';
StringGrid
1.Cells[0,1] := 'cc10011';
StringGrid
1.Cells[0,2] := 'cc10012';
StringGrid
1.Cells[0,3] := 'cc10013';
StringGrid
1.Cells[0,4] := 'cc10014';
StringGrid
1.Cells[1,0] := '商品名称';
StringGrid
1.Cells[1,1] := '苹果';
StringGrid
1.Cells[1,2] := '香蕉';
StringGrid
1.Cells[1,3] := '西红柿';
StringGrid
1.Cells[1,4] := '西瓜';
StringGrid
1.Cells[2,0] := '商品数量';
StringGrid
1.Cells[2,1] := '200';
StringGrid
1.Cells[2,2] := '150';
StringGrid
1.Cells[2,3] := '300';
StringGrid
1.Cells[2,4] := '130';
StringGrid
1.Cells[3,0] := '商品金额';
StringGrid
1.Cells[3,1] := '$5.00';
StringGrid
1.Cells[3,2] := '$4.50';
StringGrid
1.Cells[3,3] := '$1.50';
StringGrid
1.Cells[3,4] := '$6.00'; end; procedure TForm1.Button1Click(Sender: TObject); var i,col,row: Integer; begin row :=
StringGrid
1.Row; for col := 0 to
StringGrid
1.ColCount - 1 do Memo1.Lines.Add(
StringGrid
1.Cells[col,row]); end;
Delphi / XE10
StringGrid
实现合并单元格效果
显示
在
StringGrid
控件
中
实现
显示
Excel形式的合并单元格效果,也可以用Adv
StringGrid
,XLGRID等第三方控件,不过要破解比较麻烦。 原理是通过重载 OnDrawCell 事件procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);来实现重新
显示
改变设计好的格式效果...
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章