◆还是关于窗体最小化的问题?
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;procedure TForm1.FormShow(Sender: TObject);
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
ShowWindow(Application.Handle, SW_HIDE);
//启动时标题栏还是会显示一下再消失,不太好看,如何让它不显示而直接隐藏?
end;另外在任务管理器中观察到当窗体最小化时程序所占的内存明显减小,请问是什么原理?
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;procedure TForm1.FormShow(Sender: TObject);
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
ShowWindow(Application.Handle, SW_HIDE);
//启动时标题栏还是会显示一下再消失,不太好看,如何让它不显示而直接隐藏?
end;另外在任务管理器中观察到当窗体最小化时程序所占的内存明显减小,请问是什么原理?
解决方案 »
- - -# csdn的广告越来越多了哈
- TNotebook 怎么使用啊?我怎么设置了pages属性还是显示不了
- 200分 征寻OpenGL辅助库GLaux 请发送[email protected][在线]
- 求简单算法啦,我只有300多分,全用了吧
- 关于检测系统中安装的多台打印机当前状态是否为可用的问题!!!!~~~~~~~~~~~~~~~在线等~!~!!!!!!
- 有关Ehlib第三方控件的问题!急!!!
- 请问table或query的update属性的具体作用是什么?
- 怎样读取网上的文件?比如在image中显示网上的一个图像
- 请问如何实现当鼠标移动标签上,标签上的文字自动变颜色
- delphi急!
- 系统做好了~拿给别人测试时~为了保证系统不被别人修改~应该做那些工作!
- 散200分!不知道大家是否记得我?
放在工程文件application.run;前面