控制Form不能放大、縮小、移動、關閉



1、把 Form 的BorderIcons 下的幾個子屬性值全改為 False;

2、修改 Form 的BorderStyle 的值為bsSingle ;

3、為了讓窗口不能移動

可以自已攔下 WM_NCHITTEST 消息

對該消息的

處理為：一概回應鼠標點在窗口的 Client 區域

相信這個視窗就呆呆的不會動了。

詳情可以查一下 Win32API Help 的 CreateWindow() 與 WM_NCHITTEST 的說明。

下面是一個例子

請參考看看：

unit Unit1;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs


StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;

public

{ Public declarations }

end;

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

Close; // 不可少

因為不加此行只有用Alt+F4才能關閉此窗口了

end;


procedure TForm1.WMNCHitTest(var Msg: TMessage);

begin

inherited; // 這樣

移動就不可能了...

Msg.Result := HTCLIENT;

end;

end.