【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:dy214.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit dy214;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, XPMan, Buttons, ExtCtrls;
    
    type
      TForm1 = class(TForm)
        Panel1: TGroupBox;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Image1: TImage;
        Level: TComboBox;
        Add: TBitBtn;
        Cancel: TBitBtn;
        Label1: TLabel;
        Label3: TLabel;
        Label2: TLabel;
        Label4: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        procedure FormResize(Sender: TObject);
        procedure CancelClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
        procedure aa(var xx: TWMGetMinMaxinfo); message WM_GetMinMaxinfo;
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    { TForm1 }
    
    procedure TForm1.aa(var xx: TWMGetMinMaxinfo);
    begin
      with xx.MinMaxInfo^ do
      begin
        ptMinTrackSize := point(80,80);
        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.
    

上一篇：dy213.pas
下一篇：汝康皮肤护理液医治烧伤的可行性和效果分析