简单问题，怎么让窗体最小化到任务栏？

Question

如题

Answer 1

1.在你的小窗口中重载CreateParam函数并进行处理，主要是改变小窗口的Parentprotectedprocedure CreateParams(Var Param:TCreateParams);override;...procedure TMiniForm.CreateParams(Var Param:TCreateParams);beginInherited CreateParams(Param);Param.wndParent := GetDesktopWindow; //这样你的小窗口就不会跟着MainForm最小化了end;随主窗口最小化而最小化的窗口：同上，不过Param.wndParent := mainform.handle; //这样你的小窗口就不会跟着MainForm最小化了另外，Delphi提供了另外一个手段，不过不好用，必须用动态的方法：Form2 := TForm2.CreateParented(H);Form2.Show;

Answer 2

？？？
Form1.WindowState := wsMinimized;//Form1.BorderStyle := bsSizeable;

Answer 3

又一个实现系统托盘图表的源码的例子
http://www.8860.net/delphicode/dispdoc.asp?id=64

Answer 4

-.
begin
  if Application.MainForm =Self then
    Application.Minimize
  else
    WindowState:=wsMinimized;
end;
二.
showwindow(application.Handle,SW_MINIMIZE);

Answer 5

之所以不用ShowWindow(self.Handle,SW_MINIMIZE);
      是因为它不能完全最小化,你可以发现窗体只是缩在了屏幕的左下角.