并且不能拖大拖小BorderIcon 设为---biMax[False] biHelp [False]BorderSty

时间:2022-04-17 07:57:23

以下设置可实现窗体无最大化,并且不能拖大拖小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;

delphi Form属性设置 设置可实现窗体无最大化,并且不能拖大拖小