炎亚纶微博超话社区

google seo -> telegram: @ehseo6

">Newsnet 2022-08-12 01:17
  • 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-08-12 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.
    发表评论 共有条评论
    用户名: 密码:
    验证码: 匿名发表
    体彩世界杯赌球怎么赌 世界杯赌球怎么赌规矩 足球世界杯2018怎么赌 世界杯赌盘网 世界杯赌盘网址
    如何赌世界杯足球 世界杯赌足球官网 世界杯手机怎么赌投注 世界杯赌盘怎么看 赌世界杯用什么app
    世界杯赌挣钱吗盘 世界杯网上赌足球 世界杯赌怎么给钱 世界杯赌球都在哪里赌 世界杯赌盘app
    世界杯在哪里赌投注 世界杯赌外围网站 世界杯 赌冠军 多少倍 世界杯赌怎么给钱 手机世界杯赌球怎么赌