云主机建网站软件,北京网站制作团队,中国网站建设代理项目,2022年中国企业500强榜单文章目录 效果图参考利用DLL实现窗体的重用步骤1 设计出理想窗体步骤2 编写一个用户输出的函数或过程#xff0c;在其中对窗体进行创建使它实例化步骤3 对工程文件进行相应的修改以适应DLL格式的需要步骤4 编译工程文件生成DLL文件步骤5 在需要该窗体的其他应用程序中重用该窗… 文章目录 效果图参考利用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.showmodalmrOk 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; //传地址过去直接修改l1l2
beginif ListMove(l1,l2) thenbeginEdit1.Text:IntToStr(l1);Edit2.Text:IntToStr(l2);end;
end;通过这种方式你可以有效地在多个 Delphi 应用程序之间重用窗体代码。
完整代码
在这。 强制卸载工具
最近安装Adobe时它顺带安装了一个McAFee结果删的时候只显示一部分无法点击卸载按钮。 去官网找客户服务他推荐了一个工具。很不错能强制卸载顺带清理其所有文件。
工具界面很整洁使用简单方便。
