mainformunit.pas

来自「DELPHI7编程百例 DELPHI7编程百例 DELPHI7编程百例」· PAS 代码 · 共 45 行

unit MainFormUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    MDIChildForm1: TMenuItem;
    procedure MDIChildForm1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

T_ProvaChild = procedure (ParentApplication: TApplication; ParentForm: TForm); stdcall;  

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MDIChildForm1Click(Sender: TObject);
var
   DllHandle: THandle;
   ProcAddr: FarProc;
   ProvaChild: T_ProvaChild;
begin   
   DllHandle := LoadLibrary('DllMdiChildForm');
   ProcAddr := GetProcAddress(DllHandle, 'ProvaChild');
   if ProcAddr <> nil then
   begin
      ProvaChild := ProcAddr;
      ProvaChild(Application,Self);
   end;
end;

end.