程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> delphi Form屬性設置設置可實現窗體無最大化，並且不能拖大拖小

delphi Form屬性設置設置可實現窗體無最大化，並且不能拖大拖小

編輯：Delphi

以下設置可實現窗體無最大化，並且不能拖大拖小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;