加载dll窗体所遇到问题记录

要在Exe main form 中建立好数据库 连接

procedure TMain.FormCreate(Sender: TObject);
var
  vPage:TRzTabSheet;
begin
  //解决AlphaControls 皮肤 windowState :=wsMaximized 最大化时出现 标题栏出现 黑色块问题 脏读问题
  //这个有可能是 AlphaControls 控件对窗体最大化没有渲染好的问题;
  ClientHeight :=Screen.Height;
  ClientWidth  :=Screen.Width;
  //连接数据库
  ClientModule1 :=TClientModule1.Create(Application);

  FListDll  :=TStringList.Create;

end;

PageControl 中要Application 创建的要 及时释放掉，否则第二次打开会报错 打开不了

procedure TMain.mainPageClose(Sender: TObject; var AllowClose: Boolean);
var
  i,h:Integer;
begin
  if FActiveForm ='' then
  begin
    ShowMessage('当前活动的窗口没找到');
    Exit;
  end;

  if Application.FindComponent(FActiveForm) =nil then
  begin
    ShowMessage('当