DLL中显示模式窗体

要把一个Form编译进DLL,这个Form必须要自己创建和释放。

由于源代码分为几个部分,这里写下dll的关键代码:

function showform(handle1:THandle):Boolean;stdcall;
var
  form3:TForm1;
begin
  Result:=True;
  form3:=TForm1.Create(nil);
  Application.Handle:=handle1;

  try
    form3.ShowModal;
  finally
    form3.Free;
  end;

  end;

------------------------------------------------------

源代码下载:http://www.rayfile.com/files/01bda78c-1af1-11df-a58d-0015c55db73d/

 

posted @ 2010-02-16 19:48  猪悟能  阅读(392)  评论(0编辑  收藏  举报