如何控制窗口的最小化？

Question

你可以设置窗体的constraints属性，设置minheight,minwidth不为零就行了！至于位置，可以设置窗体的position属性！

Answer 1

我现写了一个，你看看：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SysCommand;//在这里定义消息映射函数
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if message.CmdType = SC_MINIMIZE then
  begin
    showMessage('hahahaha!!!我靠!!!有本事你最小化我啊!!!!!');
    //在这里做你想做的
    //比如你希望的“指定最小化后的窗口的大小、位置”
  end  else
  begin
    inherited;//若不是最小化消息，就返回消息，否则拦截之
  end;
end;end.

Answer 2

窗体最小化后出现在屏幕的左下角：
  if message.CmdType = SC_MINIMIZE then
  begin
    form1.Height :=form1.Constraints.MinHeight ;
    form1.Width :=Form1.Constraints.MinWidth;
    form1.Left :=0;
    form1.Top :=Screen.Height -Form1.Height;
  end
还可以通过改变 MinWidth ,MinHeight 的值控制窗体的大小。

Answer 3

hehe,不要忘了状态栏哦
FindWindow('Shell_TrayWnd','')得到它，把它的Height也算进去。

Answer 4

2 ：Sachow(有助)　
…………
showMessage('hahahaha!!!我靠!!!有本事你最小化我啊!!!!!');//这也是灌水啊：）
    

Answer 5

我的问题已经解决了————
我突然发现我不知道该怎样打分了？！
而这在老的CSDN中很显然的。

Answer 6

我的问题已经解决了————
我突然发现我不知道该怎样打分了？！
而这在老的CSDN中很显然的。 

Answer 7

我的问题在各位帮助下已经解决了————
我突然发现我不知道该怎样打分了？！
而这在老的CSDN中很显然的。 

Answer 8

我的问题在各位帮助下已经解决了————
我突然发现我不知道该怎样打分了？！
而这在老的CSDN中很显然的。 
    告诉我怎样给你们打分?这是最后的问题.