delphi Form屬性設定 設定可實現表單無最大化，並且不能拖大拖小（寫一個WM_EXITSIZEMOVE的空函數）

標籤：com   delphi   風格   函數   變化   var   exit   style   imp   

以下設定可實現表單無最大化，並且不能拖大拖小BorderIcon 設為---biMax[False] biHelp [False]BorderStyle 設為---bsSingle 參考-------------- 可以通過設定表單的屬性以及編程的方法,限制和控制表單的變化。如讓表單不能最小化、最大化.
-----
1.通過屬性設定方法
使用Form的BorderIcon屬性,我們可設定表單是否具有系統功能表(biSystemMenu)、最小化按鈕(biMinimize)、最大化按鈕(biMaximize)和協助按鈕(biHelp)。
BorderIcon屬性的這4個子屬性均只有True和False屬性。預設情況下四個子屬性均為True。若將biSystemMenu屬性設定為False,則不管其他屬性如何設定,表單此時不僅沒有系統功能表,連最大最小按鈕也沒有,表單不能最小化,也不能關閉。不管如何設定BorderIcon屬性,表單都能通過拖動邊界來改變大小。
使用Form的BorderStyle屬性,可以設定表單的邊界風格。常用的選項有四種:BsDialog(對話方塊邊界)、bsNone(無邊界)、bsSingle(單線邊界)和bsSize(可改變大小的標準邊界)。如果設定BorderStyle屬性為BsDialog,則不能通過拖動邊界來改變表單大小,另外如果此時BorderIcon的biHelp子屬性為True,表單將顯現出協助按鈕。如果設定BorderStyle屬性為bsSingle,也不能通過拖動邊界來改變表單大小,但此時具有最大、最小和關閉按鈕.

2.通過截獲調整表單大小的訊息來實現
type
TForm1 = class(TForm)
private
{ Private declarations }
public
//截獲調整表單大小的系統訊息WM_EXITSIZEMOVE
procedure WMEXITSIZEMOVE(var Message: TMessage);messageWM_EXITSIZEMOVE;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
Caption := ‘禁止表單調整和移動‘;
end;

原文：http://hi.baidu.com/517749/item/c8c0db37d2e6c784c2cf2996

http://www.cnblogs.com/azhqiang/p/3699903.html

delphi Form屬性設定 設定可實現表單無最大化，並且不能拖大拖小（寫一個WM_EXITSIZEMOVE的空函數）