unit2.pas

来自「在WINDOWS98或WINDOWS2000上显示出WINDOWS XP上的风格」· PAS 代码 · 共 51 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, te_controls;

type
  TForm2 = class(TForm)
    TeMDIChild1: TTeMDIChild;
    TeComboBox1: TTeComboBox;
    TeScrollBar1: TTeScrollBar;
    TeSpinButton1: TTeSpinButton;
    TeEditButton1: TTeEditButton;
    TeListBox1: TTeListBox;
    TeGroupBox1: TTeGroupBox;
    TeCheckBox1: TTeCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
    constructor Create(AOwner: TComponent); override;
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

var
  N: Integer = 1;

{ TForm2 }

constructor TForm2.Create(AOwner: TComponent);
begin
  inherited;
  ControlStyle := ControlStyle + [csOpaque];
  Caption := 'MDI Child Window ' + IntToStr(N);
  Inc(N);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.