Delphi5利用DLL实现窗体的重用

文章目录

    • 效果图
    • 参考
    • 利用DLL实现窗体的重用
      • [步骤1 设计出理想窗体](#步骤1 设计出理想窗体)
      • [步骤2 编写一个用户输出的函数或过程,在其中对窗体进行创建使它实例化](#步骤2 编写一个用户输出的函数或过程,在其中对窗体进行创建使它实例化)
      • [步骤3 对工程文件进行相应的修改以适应DLL格式的需要](#步骤3 对工程文件进行相应的修改以适应DLL格式的需要)
      • [步骤4 编译工程文件生成DLL文件](#步骤4 编译工程文件生成DLL文件)
      • [步骤5 在需要该窗体的其他应用程序中重用该窗体](#步骤5 在需要该窗体的其他应用程序中重用该窗体)
    • 完整代码
    • 强制卸载工具

效果图

参考

利用DLL实现窗体的重用

在 Delphi 5 中,通过 DLL(动态链接库)实现窗体的重用是一种高级技术,它允许你在多个应用程序之间共享窗体代码。这通常用于减少代码冗余,提高开发效率,并允许模块化设计。

步骤1 设计出理想窗体

像平时一样设计一个窗体,调试运行成功。

s 复制代码
{将左边选中的移到右边}
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=ListBox1.Items.Count-1 downto 0 do
  begin
    if ListBox1.Selected[i] then
    begin
      ListBox2.Items.Add(ListBox1.Items[i]);     //加到另外框
      ListBox1.Items.Delete(i);      //删除选中
    end;
  end;
end;

{将左边全部移到右边}
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  // 遍历ListBox1中的所有项
  for i := 0 to ListBox1.Items.Count - 1 do  
  begin  
    // 将ListBox1中的项添加到ListBox2中  
    ListBox2.Items.Add(ListBox1.Items[i]);  
  end;  
    
  // 如果你希望清空ListBox1,可以在这里执行  
   ListBox1.Items.Clear;
end;

{将右边选中的移到左边}
procedure TForm1.Button3Click(Sender: TObject);
var  
  i: Integer;
begin
  for i:=ListBox2.Items.Count-1 downto 0 do
  begin
    if ListBox2.Selected[i] then
    begin
      ListBox1.Items.Add(ListBox2.Items[i]);     //加到另外框
      ListBox2.Items.Delete(i);      //删除listbox中选中的
    end;
  end;
end;

{将右边全部移到左边}
procedure TForm1.Button4Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ListBox2.Items.Count - 1 do
  begin
    ListBox1.Items.Add(ListBox2.Items[i]);
  end;
  ListBox2.Items.Clear;
end;

{点击确定}
procedure TForm1.Button5Click(Sender: TObject);
begin
  modalresult:=mrOK;
end;

{点击取消}
procedure TForm1.Button6Click(Sender: TObject);
begin
  modalresult:=mrCancel;
end;

步骤2 编写一个用户输出的函数或过程,在其中对窗体进行创建使它实例化

t 复制代码
var
  Form1: TForm1;
  function ListMove(var l1,l2:Integer):wordbool;export;   //让外部调用


{返回选中了几门课程}
function ListMove(var l1,l2:Integer):wordbool;
begin
  result:=False;
  Form1:=TForm1.create(Application); //调用这个DLL时,创建窗体(实例化)
  try
    if Form1.showmodal=mrOk then    //点击确定
    with Form1 do
    begin
      l1:=listbox1.items.count;
      l2:=listbox2.items.count;
      result:=True;
    end;
  finally
    Form1.free;
  end;
end;

步骤3 对工程文件进行相应的修改以适应DLL格式的需要

s 复制代码
//program Project1;
library Project1;

uses
//  Forms,   // 我们自己生成窗体
  Unit1 in 'Unit1.pas' {Form1};

//告诉编译器,我们输出的函数
exports
  ListMove;
{$R *.RES}

begin
//  Application.Initialize;
//  Application.CreateForm(TForm1, Form1);
//  Application.Run;
end.

步骤4 编译工程文件生成DLL文件

步骤5 在需要该窗体的其他应用程序中重用该窗体

d 复制代码
implementation

{$R *.DFM}

//调用DLL窗体文件声明
function ListMove(var l1,l2:Integer):wordbool;far;external 'Project1.dll'

{点击确定,调用DLL文件}
procedure TForm1.Button1Click(Sender: TObject);
var
  l1,l2:Integer;      //传地址过去,直接修改l1,l2
begin
  if ListMove(l1,l2) then
  begin
    Edit1.Text:=IntToStr(l1);
    Edit2.Text:=IntToStr(l2);
  end;
end;

通过这种方式,你可以有效地在多个 Delphi 应用程序之间重用窗体代码。

完整代码

强制卸载工具

最近安装Adobe时,它顺带安装了一个McAFee,结果删的时候,只显示一部分,无法点击卸载按钮。

去官网找客户服务,他推荐了一个工具。很不错,能强制卸载,顺带清理其所有文件。

工具界面很整洁,使用简单方便。

相关推荐
rzl0241 分钟前
java web5(黑马)
java·开发语言·前端
时序数据说44 分钟前
为什么时序数据库IoTDB选择Java作为开发语言
java·大数据·开发语言·数据库·物联网·时序数据库·iotdb
jingling5551 小时前
面试版-前端开发核心知识
开发语言·前端·javascript·vue.js·面试·前端框架
m0_687399841 小时前
写一个Ununtu C++ 程序,调用ffmpeg API, 来判断一个数字电影的视频文件mxf 是不是Jpeg2000?
开发语言·c++·ffmpeg
爱上语文1 小时前
Redis基础(5):Redis的Java客户端
java·开发语言·数据库·redis·后端
A~taoker1 小时前
taoker的项目维护(ng服务器)
java·开发语言
萧曵 丶2 小时前
Rust 中的返回类型
开发语言·后端·rust
hi星尘2 小时前
深度解析:Java内部类与外部类的交互机制
java·开发语言·交互
看到我,请让我去学习2 小时前
Qt编程-qml操作(js,c++,canvas)
开发语言·qt
橘子编程2 小时前
Python-Word文档、PPT、PDF以及Pillow处理图像详解
开发语言·python