免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

以下設(shè)置可實現(xiàn)窗體無最大化，并且不能拖大拖小BorderIcon 設(shè)為---biMax[False] biHelp [False]BorderStyle 設(shè)為---bsSingle 參考-------------- 可以通過設(shè)置窗體的屬性以及編程的方法,限制和控制窗體的變化。如讓窗體不能最小化、最大化.
-----
1.通過屬性設(shè)置方法
使用Form的BorderIcon屬性,我們可設(shè)置窗體是否具有系統(tǒng)菜單(biSystemMenu)、最小化按鈕(biMinimize)、最大化按鈕(biMaximize)和幫助按鈕(biHelp)。
BorderIcon屬性的這4個子屬性均只有True和False屬性。默認(rèn)情況下四個子屬性均為True。若將biSystemMenu屬性設(shè)置為False,則不管其他屬性如何設(shè)置,窗體此時不僅沒有系統(tǒng)菜單,連最大最小按鈕也沒有,窗體不能最小化,也不能關(guān)閉。不管如何設(shè)置BorderIcon屬性,窗體都能通過拖動邊界來改變大小。
使用Form的BorderStyle屬性,可以設(shè)置窗體的邊界風(fēng)格。常用的選項有四種:BsDialog(對話框邊界)、bsNone(無邊界)、bsSingle(單線邊界)和bsSize(可改變大小的標(biāo)準(zhǔn)邊界)。如果設(shè)置BorderStyle屬性為BsDialog,則不能通過拖動邊界來改變窗體大小,另外如果此時BorderIcon的biHelp子屬性為True,窗體將顯現(xiàn)出幫助按鈕。如果設(shè)置BorderStyle屬性為bsSingle,也不能通過拖動邊界來改變窗體大小,但此時具有最大、最小和關(guān)閉按鈕.

2.通過截獲調(diào)整窗體大小的消息來實現(xiàn)
type
TForm1 = class(TForm)
private
{ Private declarations }
public
//截獲調(diào)整窗體大小的系統(tǒng)消息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 := '禁止窗體調(diào)整和移動';
end;