Delphi中正常窗口的实现

领测软件测试网

  Application.Initialize;
  Application.CreateForm(TFormMain, FormMain);
  Application.Handle := FormMain.Handle;
  Application.Run;
end.

于是，一切问题都解决了。你不需要对VCL源码作任何修改，不需要对原有的程序作任何修改，只要在工程文件中增加两行代码，加上UnitDllExe.pas中的一行，共三行代码，即可使得你的应用程序窗口完全和任何一个标准Windows窗口一样正常。

1)任务栏和窗口标题栏拥有一致的系统菜单。
2)主窗口最小化时有动画效果。
3)窗口能够正常与其它窗口排列平铺。
4)存在模态窗口时不能对其父窗口进行操作。

以上实现代码使用于Delphi的所有版本。

文章来源于领测软件测试网 https://www.ltesting.net/