关于:StringGrid 列宽的问题? 我在StringGrid填充字符,怎样自动根据字符的长度来改变每列的宽度? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以通过Canvas.TextWidth()来计算字符串宽度,然后设置列的宽度。 procedure TForm1.BitBtn1Click(Sender: TObject);var str:string;begin StringGrid1.Cells[2,3]:=Edit1.Text; if stringGrid1.ColWidths[2]<length(Edit1.Text)*5 then stringGrid1.ColWidths[2]:=length(Edit1.Text)*5; StringGrid1.Invalidate;end; length(Edit1.Text)*5; 要根据你所选的字体,以及字体大小来定。 大家帮忙一下,这个到底该怎么做? idhttp提交,触发submit事件 ***delphi 2006 以上版本的运行环境要求***** 高分求救!!!!!lookup字段如何过滤啊!!顶的给分 下面的语句有问题吗? 请指教自定义打印机需要那些控件? 我要写个安装程序,如何使用进度条? 在DBGridEh1中是不是不能显示图象字段和备注字段? ORACLE 10的客户端可以连接8.8的客户端吗? d6使用数据表时间段的问题? 如何用delphi编程直接对一个存在的EXCEL文件进行操作 谁大富翁离线数据库CHM版的下载 如何让TEdit不能获取焦点
var
str:string;
begin
StringGrid1.Cells[2,3]:=Edit1.Text;
if stringGrid1.ColWidths[2]<length(Edit1.Text)*5 then
stringGrid1.ColWidths[2]:=length(Edit1.Text)*5;
StringGrid1.Invalidate;
end;