当要隐藏一列时,要么设置这列的宽度为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;
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/archive/2012/10/18/2730145.html