调用其他模块(刷新数据)范例

最新推荐文章于 2021-09-25 21:45:23 发布

aojie8600

最新推荐文章于 2021-09-25 21:45:23 发布

阅读量99

点赞数

原文链接：http://www.cnblogs.com/Handll/archive/2009/07/27/1531940.html

版权

procedure RefsheData;
var
  I: Integer;
  frmMain: TForm;
begin
   if CurrCNPeriod > 0 then
    exit;
  frmMain : = Application.MainForm;
   for i : = frmMain.MDIChildCount - 1 downto 0 do
   begin
     if frmMain.MDIChildren[i].ClassName = ' TfrmBankInit ' then
     begin
      TfrmBankInit(frmMain.MDIChildren[i]).RunMain;
     end ;
   end ;
end ;

转载于:https://www.cnblogs.com/Handll/archive/2009/07/27/1531940.html