unit1.dfm

DELPHI实现自动关闭窗口

object Form1: TForm1
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #19968#31181#23454#29616#33258#21160#20851#38381#23545#35805#26694#30340#26041#24335
  ClientHeight = 348
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Button1: TButton
    Left = 64
    Top = 32
    Width = 97
    Height = 25
    Caption = 'ShowMessage'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 64
    Top = 112
    Width = 97
    Height = 25
    Caption = #26222#36890#23545#35805#26694
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 64
    Top = 72
    Width = 97
    Height = 25
    Caption = 'MessageBox'
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 64
    Top = 152
    Width = 97
    Height = 25
    Caption = #19981#36827#34892#25552#31034
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button5: TButton
    Left = 64
    Top = 184
    Width = 97
    Height = 25
    Caption = 'Normal'
    TabOrder = 4
    OnClick = Button5Click
  end
  object Timer1: TTimer
    Left = 24
    Top = 24
  end
end