Delphi指定窗口巨细,约束拖动窗口改动巨细-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝26
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:114回复:0

  Delphi指定窗口巨细,约束拖动窗口改动巨细

楼主#
更多 发布于:2016-06-03 23:04

Delphi约束窗口巨细,本例代码把窗口约束在长度:400、宽度250的范围内,假如持续拖放,也不能扩大窗口,可应用在一些需要固定窗口巨细的地方,代码如下:

unit dy214;interfaceuses  Windows, Messages,

SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,

XPMan, Buttons, ExtCtrls;type  TForm1 = class(TForm)    Label1: TLabel;  

 Label3: TLabel;    Label2: TLabel;    Label4: TLabel;    procedure

FormResize(Sender: TObject);    procedure CancelClick(Sender: TObject);  

 procedure aa(var xx: TWMGetMinMaxinfo); message WM_GetMinMaxinfo;  private    {

Private declarations }  public    { Public declarations }  end;var  Form1:

TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.aa(var xx:

TWMGetMinMaxinfo);begin  with xx.MinMaxInfo^ do  begin    ptMinTrackSize :=

point(170,90);    ptMaxTrackSize := point(400,250);  end;end;procedure

TForm1.FormResize(Sender: TObject);begin  label3.Caption:=inttostr(Width);

 Label4.Caption:=inttostr(Height);end;procedure TForm1.CancelClick(Sender:

TObject);begin  Close;end;end.

本例作用截图如下:

优质IT资源分享社区为你提供此文。

本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。

Delphi教程视频

优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客