1、选择菜单View -> Project Source。
2、在uses子句中添加Windows单元。
3、在Application.Initialize;之后添加Application.ShowMainForm := False;。
4、在Application.Run;之前添加ShowWindow(Application.Handle, SW_HIDE);。
你的主工程应该是这样的:
program Project1;
uses
Windows,
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.ShowMainForm := False;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
ShowWindow(Application.Handle, SW_HIDE);
Application.Run;
end.
在每个单元的initialization部分(在最下面)添加:
begin
ShowWindow(Application.Handle, SW_HIDE);
end.
相关文章
- 👉 【提问GPT】TADOConnection连接失败的问题
- 👉 CnPack 密码算法库 For Delphi
- 👉 [提问GPT]我想用delphi作为开发语言,做一个杀毒软件,有可能吗?
- 👉 Delphi 7: 面向对象设计和原型设计的优势分析
- 👉 delphi xe8 自带DEMO集合
- 👉 Delphi XE FireDAC 数据库编程学习1
- 👉 Delphi7在windows11下提示unable to rename.....错误
- 👉 Cef4动态设置代理IP方法
- 👉 将Delphi XE8 改为 Delphi7一样的浮动窗口设计
- 👉 Delphi7调用C#的webservice,在windows2008下不能运行??
最后修改:2009 年 08 月 16 日
© 允许规范转载