随笔分类

TStringGrid隐藏列时避免黑边问题

当要隐藏一列时,要么设置这列的宽度为0要么为1：

当为0的时候：

 1 procedure TfrmServerTopLogisticsCompany.FormShow(Sender: TObject);
 2 begin
 3   {表格的宽度}
 4   TopLogisticsCompanyShow_stg.ColWidths[0] := 50;
 5   TopLogisticsCompanyShow_stg.ColWidths[1] := 0;
 6   TopLogisticsCompanyShow_stg.ColWidths[2] := 0;
 7   TopLogisticsCompanyShow_stg.ColWidths[3] := 0;
 8   TopLogisticsCompanyShow_stg.ColWidths[4] := 0;
 9   TopLogisticsCompanyShow_stg.ColWidths[5] := 100;
10   TopLogisticsCompanyShow_stg.ColWidths[6] := 100;
11   TopLogisticsCompanyShow_stg.ColWidths[7] := 300;
12   TopLogisticsCompanyShow_stg.Rows[0].CommaText := '序号,快递公司ID,快递公司代码,快递公司名称,快递模板代码,快递模板名称,快递公司简称,运单号验证正则表达式';
13   {界面初始化}
14   ImageLoading_img.Picture := nil;
15 end;

当宽度为-1的时候,就不会有这个黑边了。。。

 1 procedure TfrmServerTopLogisticsCompany.FormShow(Sender: TObject);
 2 begin
 3   {表格的宽度}
 4   TopLogisticsCompanyShow_stg.ColWidths[0] := 50;
 5   TopLogisticsCompanyShow_stg.ColWidths[1] := -1;
 6   TopLogisticsCompanyShow_stg.ColWidths[2] := -1;
 7   TopLogisticsCompanyShow_stg.ColWidths[3] := -1;
 8   TopLogisticsCompanyShow_stg.ColWidths[4] := -1;
 9   TopLogisticsCompanyShow_stg.ColWidths[5] := 100;
10   TopLogisticsCompanyShow_stg.ColWidths[6] := 100;
11   TopLogisticsCompanyShow_stg.ColWidths[7] := 300;
12   TopLogisticsCompanyShow_stg.Rows[0].CommaText := '序号,快递公司ID,快递公司代码,快递公司名称,快递模板代码,快递模板名称,快递公司简称,运单号验证正则表达式';
13   {界面初始化}
14   ImageLoading_img.Picture := nil;
15 end;

-----------------

但是这样也不美观,所以最好其中有一个有点黑边感觉好看些：

 1 procedure TfrmServerTopLogisticsCompany.FormShow(Sender: TObject);
 2 begin
 3   {表格的宽度}
 4   TopLogisticsCompanyShow_stg.ColWidths[0] := 50;
 5   TopLogisticsCompanyShow_stg.ColWidths[1] := 0;
 6   TopLogisticsCompanyShow_stg.ColWidths[2] := -1;
 7   TopLogisticsCompanyShow_stg.ColWidths[3] := -1;
 8   TopLogisticsCompanyShow_stg.ColWidths[4] := -1;
 9   TopLogisticsCompanyShow_stg.ColWidths[5] := 100;
10   TopLogisticsCompanyShow_stg.ColWidths[6] := 100;
11   TopLogisticsCompanyShow_stg.ColWidths[7] := 300;
12   TopLogisticsCompanyShow_stg.Rows[0].CommaText := '序号,快递公司ID,快递公司代码,快递公司名称,快递模板代码,快递模板名称,快递公司简称,运单号验证正则表达式';
13   {界面初始化}
14   ImageLoading_img.Picture := nil;
15 end;

posted on 2012-10-18 21:31 del88 阅读(18) 评论(0) 编辑收藏举报

搜索

积分与排名

随笔分类

TStringGrid隐藏列时避免黑边问题