Delphi中正常窗口的实现[3]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 cathyeagle 的 blog

  formmain in 'formmain.pas' {mainform};

{$r *.res}

begin
  application.initialize;
  application.createform(tformmain, formmain);
  application.handle := formmain.handle;
  application.run;
end.

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

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

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

本文关键:Delphi中正常窗口的实现
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top