怎么样使弹出的窗体大小固定？也就是不能最大化（满屏显示）？？

Question

怎么样使弹出的窗体大小固定？也就是不能最大化（满屏显示）？？

Answer 1

在属性理由设置，把最大化的属性值设为false

Answer 2

form1.borderstyle------bsnone/bssingle
form1.borderlicons--------bisystemmer-true,其他false

Answer 3

Form 的bordericons 的biminimaze,biminimaze屬性設定true

Answer 4

formstyle改为Dialog
Form 的bordericons 的biminimaze,bisystemmer得值为 true;其他的改为False

Answer 5

form1.borderstyle中的BiMaxMize:=false;

Answer 6

//我写的一个:(对双击标题栏和最大化按钮都有屏蔽最大化作用)
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure wmsyscommand(var msg:Tmessage);message WM_syscommand;  //最小化,最大化...等按钮单击消息
    procedure WMNcLButtonDBLClk(var m: TMessage); message WM_NCLBUTTONDBLCLK;  //双击标题栏时进入此过程
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure Tform1.wmsyscommand(var msg:Tmessage);
begin
  case msg.WParam of
       SC_MAXIMIZE : exit; //最大无效
       else
       inherited;  //响应其他消息  end;
end;procedure tform1.WMNcLButtonDBLClk(var m: TMessage);
begin
exit;  //双击无效
end;end.

Answer 7

同 hottey(蓝色的幽灵) :
照楼住的要求，按钮界面保存，功能不在，只有截获消息了