DLL窗体怎么加载到cxPageControl中,谢谢!

2015-07-31 03:04:07 215 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DSSAT模型实战：从基础配置到气候情景模拟本文详细介绍了DSSAT模型在农业模拟中的应用，从基础配置到气候情景模拟的全流程实战指南。通过土壤-植物-大气连续体的动态关系建模，DSSAT能精准预测作物产量，误差率低至8%。文章涵盖气象数据处理、土壤参数配置、管理措施调控等核心技巧，并提供了Python脚本和可视化方法，助力农业科研与决策。阅读详情

怎么把dll载入到cxpagecontrol中?
现在用的方法只能打一个个打开,怎么能多个显示到page页上?:

 

function ShowDllForm(DLLName: string; ProcName: string; Owner: TForm): Boolean;

var

  DllHd: THandle;

  ShowDllFormProc: Pointer;

  OwnerHandle: HWND;

begin



  if Owner = nil then

    OwnerHandle := 0

  else

    OwnerHandle := Owner.Handle;



   //ShowMessage(DLLName );

  if not FileExists(ExtractFilePath(Application.ExeName) + DLLName) then

  begin



    MessageBox(OwnerHandle, PChar('找不到文件' + DLLName + '，请检查该模块！'), '提示',

      MB_OK or MB_ICONEXCLAMATION);

    Result := False;

    Exit;

  end;

  DllHd := LoadLibrary(PChar(DLLName));

  if DllHd = 0 then

  begin

    ShowMessage(DLLName);

    MessageBox(OwnerHandle, PChar('加载' + DLLName + '错误，请检查该模块！'), '提示',

      MB_OK or MB_ICONEXCLAMATION);

    FreeLibrary(DllHd);

    Result := False;

    Exit;

  end;



  ShowDllFormProc := GetProcAddress(DllHd, PChar(ProcName));

  // ShowMessage('test');

  if ShowDllFormProc = nil then

  begin



    MessageBox(OwnerHandle,

      PChar('查找' + DLLName + '中函数' + ProcName + '出错，请检查该模块！'), '提示',

      MB_OK or MB_ICONEXCLAMATION);

    FreeLibrary(DllHd);

    Result := False;

    Exit;

  end;

  // ShowMessage('test2');



  try

    Result := TShowDllFormProc(ShowDllFormProc)(Owner);

  except

    MessageBox(OwnerHandle,

      PChar('执行' + DLLName + '中函数' + ProcName + '出错，请检查该模块！'), '提示',

      MB_OK or MB_ICONEXCLAMATION);

    FreeLibrary(DllHd);

    Result := False;

    Exit;

  end;

  FreeLibrary(DllHd);



end;

//调用

ShowDllForm('Sys.dll','ShowSYSParamsSetForm',Self);



//SYS.dll中ShowSYSParamsSetForm 写法



function    ShowSYSParamsSetForm(Owner : TForm ) : Boolean;stdcall ;

var

  frmParamsSet : TfrmParamsSet  ;

begin



  Application.Handle := CommData.ApplicationHandle  ;

  frmParamsSet := TfrmParamsSet.Create(Owner   );

  frmParamsSet.ShowModal;

  Result := True ;

  FreeAndNil(frmParamsSet);



end;