当前位置: 首页 > news >正文

Delphi5利用DLL实现窗体的重用

文章目录

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

效果图

在这里插入图片描述

参考

利用DLL实现窗体的重用

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

步骤1 设计出理想窗体

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

在这里插入图片描述

{将左边选中的移到右边}
procedure TForm1.Button1Click(Sender: TObject);
vari: Integer;
beginfor i:=ListBox1.Items.Count-1 downto 0 dobeginif ListBox1.Selected[i] thenbeginListBox2.Items.Add(ListBox1.Items[i]);     //加到另外框ListBox1.Items.Delete(i);      //删除选中end;end;
end;{将左边全部移到右边}
procedure TForm1.Button2Click(Sender: TObject);
vari: 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;
beginfor i:=ListBox2.Items.Count-1 downto 0 dobeginif ListBox2.Selected[i] thenbeginListBox1.Items.Add(ListBox2.Items[i]);     //加到另外框ListBox2.Items.Delete(i);      //删除listbox中选中的end;end;
end;{将右边全部移到左边}
procedure TForm1.Button4Click(Sender: TObject);
vari: Integer;
beginfor i := 0 to ListBox2.Items.Count - 1 dobeginListBox1.Items.Add(ListBox2.Items[i]);end;ListBox2.Items.Clear;
end;{点击确定}
procedure TForm1.Button5Click(Sender: TObject);
beginmodalresult:=mrOK;
end;{点击取消}
procedure TForm1.Button6Click(Sender: TObject);
beginmodalresult:=mrCancel;
end;

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

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

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

//program Project1;
library Project1;uses
//  Forms,   // 我们自己生成窗体Unit1 in 'Unit1.pas' {Form1};//告诉编译器,我们输出的函数
exportsListMove;
{$R *.RES}begin
//  Application.Initialize;
//  Application.CreateForm(TForm1, Form1);
//  Application.Run;
end.

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

在这里插入图片描述

在这里插入图片描述

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

implementation{$R *.DFM}//调用DLL窗体文件声明
function ListMove(var l1,l2:Integer):wordbool;far;external 'Project1.dll'{点击确定,调用DLL文件}
procedure TForm1.Button1Click(Sender: TObject);
varl1,l2:Integer;      //传地址过去,直接修改l1,l2
beginif ListMove(l1,l2) thenbeginEdit1.Text:=IntToStr(l1);Edit2.Text:=IntToStr(l2);end;
end;

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

完整代码

在这。

在这里插入图片描述

强制卸载工具

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

在这里插入图片描述

去官网找客户服务,他推荐了一个工具。很不错,能强制卸载,顺带清理其所有文件。
在这里插入图片描述

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

在这里插入图片描述

http://www.lryc.cn/news/441718.html

相关文章:

  • 使用JavaWeb开发注册功能时,校验用户名是否已存在的一个思路(附代码)
  • 前端常见面试-首页性能提升、项目优化
  • 卷王阿里又开启价格战,大模型价格降价85%!
  • Java中的异步编程模式:CompletableFuture与Reactive Programming的实战
  • 7iDU AMP田岛绣花机驱动器维修0J2100400022
  • 部署自己的对话大模型,使用Ollama + Qwen2 +FastGPT 实现
  • vue websocket 使用
  • Spring Boot 入门面试五道题
  • 【鸿蒙】HarmonyOS NEXT开发快速入门教程之ArkTS语法装饰器(上)
  • 国产品牌 KTH1701系列 高性能、低功耗、全极磁场检测霍尔开关传感器
  • 如何不终止容器退出Docker Bash会话
  • 杰理芯片各型号大全,方案芯片推荐—云信通讯
  • 解决服务器首次请求异常耗时问题
  • VS code 创建与运行 task.json 文件
  • 【电商API接口定价】618品牌定价参考(电商API接口数据采集)
  • PyRFC 适用于 Python 的异步、非阻塞 SAP NetWeaver RFC SDK 绑定
  • 解决matplotlib画中文时缺乏中文字体问题。
  • 小琳AI课堂 掌握强化学习:探索OpenAI Gym的魅力与Python实战
  • 1.3 等价类划分法
  • 概率论原理精解【15】
  • 【新手上路】衡石分析平台系统管理手册-安全管理
  • 【Matlab】matlab 结构体使用方法
  • Mamba YOLO World
  • JVM 内存模型:堆、栈、方法区讲解
  • 24年蓝桥杯及攻防世界赛题-MISC-2
  • openssl-AES-128-CTR加解密char型数组分析
  • 自动化生成与更新 Changelog 文件
  • (六)WebAPI方法的调用
  • 运维工程师面试整理-故障排查常见故障的排查步骤及方法
  • OpenAI o1解决了「Quiet-STaR」的挑战吗?