unit1.pas

来自「Delphi商业源码精品：form_easysize」· PAS 代码 · 共 41 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Easysize, StdCtrls;

type
  Tfrm = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    FormResizer1: TFormResizer;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm: Tfrm;

implementation

{$R *.dfm}

procedure Tfrm.FormCreate(Sender: TObject);
begin
   FormResizer1.InitializeForm;
end;

procedure Tfrm.FormResize(Sender: TObject);
begin
   FormResizer1.ResizeAll;
end;

end.