delphi7制作带窗体的DLL
答案:1 悬赏:50
解决时间 2021-02-21 12:08
- 提问者网友:我没有何以琛的痴心不悔
- 2021-02-20 19:33
delphi7制作带窗体的DLL
最佳答案
- 二级知识专家网友:北城痞子
- 2021-02-20 20:03
在DLL 中,除了放置标准的函数和过程以外,也可以放置已经做好的的delphi窗体,也可以把做好的窗体供其它程序使用,方法是:
1)首先按普通方法制作窗体,不过在interface区域,对接口函数做如下声明
function Createform(capt:string):string;stdcall;
2)在implementation下加入接口函数
function Createform(capt:string):string;stdcall;
var Form1: TForm1;
begin
form1:=Tform1.Create(application);
form1.show;
form1.caption:=capt;
end;
3)制作DLL 动态连接库,但要声明:
uses
unit1 in ’unit1.pas’;
exports
{写入接口标示符}
Createform name ’Myform’;
4)调用窗体的程序按普通方法制作,但是 在implementation下首先声明要调用的DLL函数 ,
const :
gdi32=’myFormdll.dll’;
function Createform(capt:string):string;stdcall;external gdi32 name ’Myform’;
procedure TForm3.Button1Click(Sender: TObject);
var n,m:string;
begin
m:=’我的窗体’;
Createform(m);var n,m:string;
end;
1)首先按普通方法制作窗体,不过在interface区域,对接口函数做如下声明
function Createform(capt:string):string;stdcall;
2)在implementation下加入接口函数
function Createform(capt:string):string;stdcall;
var Form1: TForm1;
begin
form1:=Tform1.Create(application);
form1.show;
form1.caption:=capt;
end;
3)制作DLL 动态连接库,但要声明:
uses
unit1 in ’unit1.pas’;
exports
{写入接口标示符}
Createform name ’Myform’;
4)调用窗体的程序按普通方法制作,但是 在implementation下首先声明要调用的DLL函数 ,
const :
gdi32=’myFormdll.dll’;
function Createform(capt:string):string;stdcall;external gdi32 name ’Myform’;
procedure TForm3.Button1Click(Sender: TObject);
var n,m:string;
begin
m:=’我的窗体’;
Createform(m);var n,m:string;
end;
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯