【搞定】在业务信息下如何实现最佳匹配？**

songyun

在功能窗体下，我这么写：
procedure TXGDRCXXGLCT.BizFormShow(Sender: TObject);
begin
   DataGrid1.ApplyBestFit(nil);
end;
是可以实现的。
现在，我是在业务信息下直接写的代码：
procedure TDLWG.ApplyBestFit(AColumn: TTreeListColumn);

begin
  DataGrid1.ApplyBestFit(nil);
end;
生成主窗体以后，无法实现Drid的最佳匹配，请问怎么做？

atiger

你设置断点了吗？运行到你的代码没有？如果没有，那说明时机不对

jiahaiminghr

？

songyun

设置断点了，可没看出来问题，我贴代码出来：
procedure TDLWG.FormDocCreate(Sender: TObject);
    begin
        DataGrid1.ApplyBestFit(nil);
    end;

atiger

你不要在这个事件上，你在DataSetBroker 的open 的时候做看看是否就ok了

songyun

procedure TDLWG.DataSetBroker1BeforeOpen(DataSet: TDataSet);
begin
   DataGrid1.ApplyBestFit(nil);
end;
没有ok，怎么办？

atiger

写到 AfterOpen 上，

songyun

写了，还是不能所有列都匹配。

atiger

啥意思，这个DataGrid有的列可以，有的不可以，那你是否定义DataGrid的cloumn呢？如果有，是否就是这些字段。如果想全部都匹配，那么取消，

songyun

取消了，，还是不行。我当然是要求全部都匹配了。procedure TDLWG.DataSetBroker1AfterOpen(DataSet: TDataSet);
begin
   DataGrid1.ApplyBestFit(nil);
end;
事件也写了，为什么？