◆还是关于窗体最小化的问题? ( 积分: 50 )

◆还是关于窗体最小化的问题?<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> &nbsp;SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);<br>end;<br><br>procedure TForm1.FormShow(Sender: TObject);<br>begin<br> &nbsp;SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0); <br> &nbsp;ShowWindow(Application.Handle, SW_HIDE);<br>//启动时标题栏还是会显示一下再消失,不太好看,如何让它不显示而直接隐藏?<br>end;<br><br>另外在任务管理器中观察到当窗体最小化时程序所占的内存明显减小，请问是什么原理？

◆还是关于窗体最小化的问题?<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> &nbsp;SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);<br>end;<br><br>procedure TForm1.FormShow(Sender: TObject);<br>begin<br> &nbsp;SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0); <br> &nbsp;ShowWindow(Application.Handle, SW_HIDE);<br>//启动时标题栏还是会显示一下再消失,不太好看,如何让它不显示而直接隐藏?<br>end;<br><br>另外在任务管理器中观察到当窗体最小化时程序所占的内存明显减小，请问是什么原理？

直接这样写不行吗:<br><br>procedure TForm1.FormShow(Sender: TObject);<br>begin<br> &nbsp; windowState:=wsMinimized;<br>end;

楼上的，你意思理解错了!!<br><br>他的要求是在任务栏上缩小图标的!!<br><br>楼主，你问的为什么缩小了，内存小了!!是因为没有运行程序，是在后台运行，相对资源就小了!!

楼主是要在程序启动时隐藏任务栏，可以将隐藏的代码写到Form的Active事件中，你的问题应该可以解决；<br><br>窗体最小化后前台现实以及绘制窗体的所有操作都将会不进行，同时消耗的内存就会减少。

多人接受答案了。