三亚海漫飞丝婚纱摄影微博

google seo -> telegram: @ehseo6

">Newsnet 2022-09-25 10:52
  • home  >   /福建各个地区麻将  >   三亚海漫飞丝婚纱摄影微博
  • 三亚海漫飞丝婚纱摄影微博

    var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm.baidu.com/hm.js?96e5e51c46eac09c5170559e22b63d63"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();
    首页 > 编程 > Delphi > 正文

    三亚海漫飞丝婚纱摄影微博

    2022-09-25 20:52:35
    字体:
    来源:转载
    供稿:网友

    以下是我的原代码:
    ==========================================================================================
    DPR  单元代码
    program Mdiform;
    uses
      Forms,
      UMdiform in ´UMdiform.pas´ {Mainform},
      UDM in ´UDM.pas´ {GlobalDM: TDataModule},
      UFun in ´UFun.pas´;
    {$R *.res}
    begin
      Application.Initialize;
      Application.CreateForm(TMainform, Mainform);
      Application.Run;
    end.
    ===============================================================================================
    主窗体代码:
    unit UMdiform;
    interface
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Udm,StdCtrls;
    type

      TMainform = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
         MyHandle:HWND;
        { Public declarations }
      end;
    var
      Mainform: TMainform;
    type
      T_ShowTestMng=function (var adm:TMainform) : Boolean; StdCall;
    implementation
    {$R *.dfm}
    procedure TMainform.Button1Click(Sender: TObject);
    var 
      Lib_         :THandle;
      _ShowTestMng :T_ShowTestMng;
    begin
      Lib_:=LoadLibrary(pchar(´MdiChild.dll´));
      try
        @_ShowTestMng:=GetProcAddress(Lib_,´_ShowTestMng´);
        if not(@_ShowTestMng=nil) then
          _ShowTestMng(Mainform);
      finally
        FreeLibrary(Lib_);
      end;
    end;
    procedure TMainform.FormCreate(Sender: TObject);
    begin
     MyHandle:=Application.Handle;
    end;
    end.
    ==============================================================================================
    子窗体DLL代码:
    library MdiChild;
    uses
      ShareMem,
      UMdiform,  //此单元为父窗体单元,在顶目设置中我已经设置了搜索此单元在路径。
      Forms,
      SysUtils,
      Classes,
      UChild in ´UChild.pas´ {FrmChild};//FrmChild子窗体的FormStyle属性为FsMDIChild
    {$R *.res}
    function _ShowTestMng(var adm:TMainform) : Boolean; StdCall;
    begin
      result:=true;
      Application.Handle:=adm.MyHandle;
      Application.CreateForm(TFrmChild,FrmChild);   //程序就出错在此:出错原因是:Cannot create form. No MDI Forms are currently active.
      FrmChild.Show;
    end;
    exports
        _ShowTestMng;
    end.
    发表评论 共有条评论
    用户名: 密码:
    验证码: 匿名发表
    阴蒂环系列av影音先锋 第一福利社区男人天堂视频--av av盒子导航 芒果AV免费无码电影 曰本av导航
    视频_转换器 _hdmi2av 噜噜噜av av拍摄现场指南 在线手机av红番阁 在线av.国产偷拍,色男人天堂
    黄色av视频 日本水上摔跤的av av里偷偷拿掉避孕套 欧美av关键词 日本充气姓姓av网站
    丝瓜草莓视频av av天堂2014avtt东京热l av演员名单表 苍井优av番号 2018av人气排行