还有最好把
Form1.BorderIcons.biMaximize
改为Flase
这样,右上角的窗口全屏化的小按钮就被屏蔽了

解决方案 »

  1.   

    Form1.BorderStyle
    改为bsdialog
      

  2.   

    同上同上
    不过如果是bsdialog的话,会没有最大化和最小化按扭
      

  3.   

    如何阻止用户移动窗体或改变它的大小 
    type
    TForm1 = class(TForm)
    private
    procedure WMPosChange(var Message: TWMWINDOWPOSCHANGING);
    message WM_WINDOWPOSCHANGING;
    public
    end;var
    Form1: TForm1;implementation{$R *.DFM}procedure Tform1.WMPosChange(var Message: TWMWINDOWPOSCHANGING);
    begin
    PWindowPos(TMessage(Message).lParam).Flags :=
    PWindowPos(TMessage(Message).lParam).Flags or
    SWP_NOMOVE or SWP_NOSIZE;
    end;
      

  4.   

    form不是有一个constraint属性(可能是这个名字,不太记得了),用它可限制窗体的大小
      

  5.   

    我可以这么实现了,注意,我这么实现以后,窗口和可以改变大小的没有什么两样!最大化,最小化按钮都有!
    在Tform的OnCanResize事件里写如下代码
      NewWidth:=Form.Width;
      NewHieght:=Form.Height;
      Resize:=True;
    阻止用户移动窗口我这么实现的阿!
    procedure WMNCHitTest(var Msg:TMessage);Message WM_NCHitTest;//申明下面实现
    procedure Tform.WMNCHitTest(var Msg:TMessage);
    begin
      Inherited;
      If Msg.lparam=HTCaption
       Then
         Msg.Result:=HTClient;
    end;
      

  6.   

    属性:constraints
      设置:MAXHEIGHT:=
           MAXWIDTH:=
           MINHEIGHT:=
           MINWIDTH:= 
    你知道应该怎么设置了吧。
    谢谢,给我分。
      

  7.   

    添加一个bevel控件覆盖整个form ,然后把form.autosise改为true