使用DLL文件中封装的窗口

最新推荐文章于 2021-04-15 01:02:02 发布

zm027

最新推荐文章于 2021-04-15 01:02:02 发布

阅读量1.1k

点赞数

分类专栏： Delphi 文章标签： dll button application object forms interface

本文链接：https://blog.csdn.net/zm027/article/details/534223

版权

本文介绍了如何在Delphi中创建一个DLL工程，封装一个包含Label和Button的窗口，并提供LoadForm过程来显示该窗口。接着，展示了如何在新的工程中调用这个DLL文件中的窗口。此外，还详细说明了如何在DLL中创建一个MDI-Child窗口，并在MDI形式的应用程序中使用这个DLL窗口。

摘要由CSDN通过智能技术生成

一、在DLL中封装窗口
打开Delphi新建一个DLL工程，保存为usedll，生成代码

library usedll;

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

uses
SysUtils,
Classes;

{$R *.res}

begin
end.

新建一个窗体，添加一个Label和Button，设置如下：

object Form1: TForm1
Left = 192
Top = 133
Width = 334
Height = 221
Caption = 'DLL'#20013#20351#29992#31383#20307
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 104
Top = 80
Width = 80
Height = 13
Caption = 'DLL'#20013#20351#29992#31383#20307
end
object Button1: TButton
Left = 120
Top = 152
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 0
OnClick = Button1Click
end
end

最低0.47元/天解锁文章

zm027

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
使用DLL文件中封装的窗口

一、在DLL中封装窗口打开Delphi新建一个DLL工程，保存为usedll，生成代码library usedll; { Important note about DLL memory management: ShareMem must be thefirst unit in your librarys USES clause AND your projects (selectProj
复制链接

扫一扫