delphi 怎么控制窗口大小

Posted 2023-05-06

控制窗口大小，不可随意变大。如果是 ： 设置BorderIcons的biMaximize为false, BorderStyle为bsSingle。这些我都知道。但只针对一般的form。我在form里用了suiform，如果只改上面说的属性，根本没有效果。到底要怎么改？

参考技术A 放入窗口里
form1.Constraints.MaxHeight:=400;
form1.Constraints.MaxWidth:=600;
form1.Constraints.MinHeight:=100;
form1.Constraints.MinWidth:=150; 这个代码是限制窗口的宽和长大小的！ 参考技术B //写个过程就可以unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;var
Form1: TForm1;implementation$R *.dfm TForm1 procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style xor WS_THICKFRAME;
end;end. 参考技术C 尽量多的使用容器（比如Panel,Toolbar）和splitter,并且设置属性为alclient,alleft,alright...总之不是alnone就可以。 参考技术D 没用过第三方的东西不知道下面的得不得。Form1.BorderStyle:=bsDialog;或procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Resize:=False;
end;

用 JavaScript 控制浏览器窗口大小？

用 JavaScript 控制浏览器窗口大小：
A:有时候，需要控制显示窗口的大小，通过点击窗口右上角的控制按钮来实现。
function Minimize()

window.innerWidth = 100;
window.innerHeight = 100;
window.screenX = screen.width;
window.screenY = screen.height;
alwaysLowered = true;

function Maximize()

window.innerWidth = screen.width;
window.innerHeight = screen.height;
window.screenX = 0;
window.screenY = 0;
alwaysLowered = false;


上面的代码包含 2 个函数，第 1 个函数 Minimize 中使用 innerWidth 和 innerHeight 2 个命令在象素级别上控制窗口尺寸大小，这里将窗口设置为宽 100 高100。然后，设置窗口的起始位置，定位大小为屏幕的宽和高，这样，使用 alwaysLowered 命令就将窗口缩小并移动到了屏幕的右下角。触发事件是一个 JavaScript 链接 〈A HREF="javascript:onClick=Minimize()"〉Minimize〈/A〉。同时，上述代码可以用于设置屏幕的任何分辨率。
　 注意，当在页面上应用这个功能时，请将那 2 个触发事件的链接放置在页面的左上角，这样，当窗口缩小到右下角时，也不会消失。 参考技术A 有时候，我们需要控制显示窗口的大小，这当然能够通过点击窗口右上角的控制按钮来实现。但是

，能否在页面中通过链接来实现呢？答案是：能！请看下面的代码：
〈SCRIPT LANGUAGE=“JavaScript“〉
function Minimize()

window.innerWidth = 100;
window.innerHeight = 100;
window.screenX = screen.width;
window.screenY = screen.height;
alwaysLowered = true;

function Maximize()

window.innerWidth = screen.width;
window.innerHeight = screen.height;
window.screenX = 0;
window.screenY = 0;
alwaysLowered = false;

〈/SCRIPT〉
〈A HREF=“javascript:onClick=Minimize()“〉Minimize〈/A〉
〈A HREF=“javascript:onClick=Maximize()“〉Maximize〈/A〉
　 上面的代码包含 2 个函数，先来看看第 1 个。函数 Minimize 中使用 innerWidth 和 innerHeight

2 个命令在象素级别上控制窗口尺寸大小，这里将窗口设置为宽 100 高 100。然后，设置窗口的起始位

置，定位大小为屏幕