unit2.dfm

DELPHI实现自动关闭窗口

object DlgTest: TDlgTest
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = 'DlgTest'
  ClientHeight = 155
  ClientWidth = 316
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 48
    Width = 204
    Height = 13
    Caption = #36825#20010#23545#35805#26694#23558#20250#22312' 8 '#31186#38047#20043#21518#33258#21160#20851#38381
  end
  object Button1: TButton
    Left = 16
    Top = 112
    Width = 281
    Height = 25
    Caption = #31435#21363#21462#28040#39044#23450#30340' '#33258#21160#20851#38381
    TabOrder = 0
    OnClick = Button1Click
  end
end