请问stringgrid问题 你可以到www.51delphi.com上下载一个advstringgrid,可以实现你要的功能,也可以实现stringgrid的打印等等,很好 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 设置StringGrid的Options--goRowSizing,goColSizing属性为True www.vclxx.org上有你要的控件,不过名字我记不大清楚了。你查查有关控件的说明即可 通过stringgrid1.Colwidths[i] := xxx;stringgrid1.RowHeights[i] := yyy;控制 一个字节大概是5,那就stringgrid1.Colwidths[i] := length(str)*5 stringgrid的事件SetEditTextprocedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);beginif stringgrid1.ColWidths[acol]<length(value)*8 then stringgrid1.ColWidths[acol]:=length(value)*8;end; Stringgrid1.colwidths[i]:=100;Stringgrid1.rowheights[j]:=30; 其实这是个很麻烦的事情, 因为每一个列里的数据可能都是长短不一,你预先设置好CELL宽度,难保在下面的数据显示时,会被掩盖掉。用一个土办法就是在数据显示完后,开一个线程对STRINGGRID 进行逐列访问,在每一列都取得一个最大宽度,然后将当前列设为该宽度。这样显示出来就紧凑了。 delphi里怎样对字符串进行urlencode编码?像asp里的server.urlencode 那些精品软件用delphi开发的? 如何批量修改菜单属性 请问,怎样在线程中调用COM?! 修改table中的某条纪录 在DELPHI7了有个DBDateTime1怎么用的! QuickRepor如何实现固定表格报表,打印动态数据 如果有很多的数据库,怎么才能合理使用?(用ADOQUERY) 关于报表的问题(急!!!!!!!!!) 请问如何让TImage移动的时候不闪烁?或者说减少闪烁?有何良策? 急!!如何将WORD文档挂到DELPHI中做成帮助文档!在线等待。。 如何让label换行?
stringgrid1.Colwidths[i] := xxx;
stringgrid1.RowHeights[i] := yyy;控制
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
if stringgrid1.ColWidths[acol]<length(value)*8 then
stringgrid1.ColWidths[acol]:=length(value)*8;
end;
Stringgrid1.rowheights[j]:=30;