关于Stringgrid的几个问题

lzyun 2002-05-18 01:10:00
如何在程序运行期间动态改变列宽及行高?
如何将多个CELL合并为一个?
...全文
75 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
vigrous_chen 2002-05-25
  • 打赏
  • 举报
回复
试一试

将stringgrid的defaultdrawing属性改为false,然后:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (acol=1) and (arow=1) then
rect.Bottom:=rect.Bottom+rect.Bottom-rect.Top;
if not((acol=1) and (arow=2)) then
begin
stringgrid1.Canvas.FillRect(Rect);
stringgrid1.canvas.textout(rect.left,rect.top+18,StringGrid1.cells[acol,arow]);
end;
end;
lzyun 2002-05-25
  • 打赏
  • 举报
回复
下载了看看先,成功立即散分
zjoner 2002-05-21
  • 打赏
  • 举报
回复
Tadvstringgrid打印很烦的.........

动态改变列宽及行高可以通过属性设置的。
多个cell就.........不过有个苯方法:动态的画个edit上去,把各个cells
的内容写到edit中就可以了!
zkking 2002-05-21
  • 打赏
  • 举报
回复
换一个stringgrid吧,推荐Tadvstringgrid用完后觉得不想用其他的了,www.51delphi.com上有下载,很不错的grid,你说得功能在他demo中都有啊
ihihonline 2002-05-21
  • 打赏
  • 举报
回复
动态可以的,但是合并不太好办
lzyun 2002-05-18
  • 打赏
  • 举报
回复
哪为高手有代码,可以贴出来参考参考吗?
分不够可以在加!
yansea 2002-05-18
  • 打赏
  • 举报
回复
似乎只能自己写代码吧,有别的什么好办法吗

5,930

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧