如何最小化

Question

to wingsun:
就是一个普通的form

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.ParentWindow=GetDesktopWindow();
  form1.windowstate:=wsMinimized;
end;

Answer 2

谢谢，终于可以缩到任务栏了。
但是还是和默认的最小化按钮不太一样：
我新建一个工程，在Form1上添加一按钮，然后
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.ParentWindow:=GetDesktopWindow();
  form1.windowstate:=wsMinimized;
end;
运行点击按钮，Form1单缩到任务栏，与Project分着。
这是为什么，如何改呢？

Answer 3

在DELPHI中它对窗口的管理实际还有一个隐藏的APPLICATION所拥有的窗口，所以你对其它窗口最小化时，会有一些奇怪的现象，如果想把应用最小化，可用APPLICATION的MINIMIZE来完成。它实际上把APPLICATION这个窗口最小化，同时把其中的子窗口FORM1最小化。
procedure TForm1.Button1Click(Sender: TObject);
begin
  application.Minimize ;
end;

Answer 4

Delphi在封装Windows的窗体时是有些奇怪，用929的方法是上策，用Wingsun的方法在最小化主窗体时有时会连同子窗体一起最小话……

Answer 5

要是把MDI的子窗体最大化，该怎么做？？？