umainform.~pas

用DLL中封装MDI,在DLL文件中封装MDI

unit uMainform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uAncestor, StdCtrls, Menus, DB, DBClient, Grids, DBGrids;

type
  PCallDllProc=^TCallDllProc;
  TCallDllProc=record
    HostAppHwnd:HWND;
    HostAppMainf:LongInt;
    HostScreen:LongInt;
    HostDataMdl:LongInt;
    Sql:string;
    wPower:Word;
    wParam:Integer;
    lParam:Integer;
    Reserved:Integer;
  end;


type
  TMainform = class(TAncestor)
    mm1: TMainMenu;
    F1: TMenuItem;
    O1: TMenuItem;
    S1: TMenuItem;
    procedure O1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Mainform: TMainform;

implementation

uses rsApiHead, uDataMdl;

{$R *.dfm}

procedure TMainform.O1Click(Sender: TObject);
var
  CallDllProc:TCallDllProc;
begin
  with CallDllProc do begin
    HostAppHwnd:=Application.handle;
    HostAppMainf:=LongInt(Application.MainForm);
    HostScreen:=LongInt(Screen);
    HostDataMdl:=LongInt(DataMdl);
    Sql:='Select * From Test1';
  end;
  InitDllForm1(@CallDllProc);
  inherited;
end;

procedure TMainform.S1Click(Sender: TObject);
begin
  if MDIChildCount>0  then
    ShowMessage(MDIChildren[0].Name);
  inherited;
end;

end.