choujiang.~dfm

来自「用VB写的一个小小的抽奖程序」· ~DFM 代码 · 共 129 行

object Form1: TForm1
  Left = 191
  Top = 129
  Width = 830
  Height = 607
  Caption = #25277#22870#36719#20214
  Color = clSkyBlue
  Font.Charset = GB2312_CHARSET
  Font.Color = clRed
  Font.Height = -24
  Font.Name = #21326#25991#26032#39759
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 25
  object Label1: TLabel
    Left = 72
    Top = 88
    Width = 144
    Height = 55
    Caption = #21495#30721#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -48
    Font.Name = #21326#25991#20013#23435
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label2: TLabel
    Left = 608
    Top = 240
    Width = 120
    Height = 25
    Caption = #33719#22870#21495#30721#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -24
    Font.Name = #21326#25991#26032#39759
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 224
    Top = 24
    Width = 377
    Height = 25
    Caption = 'Label3'
  end
  object edtCode: TEdit
    Left = 248
    Top = 80
    Width = 465
    Height = 72
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -56
    Font.Name = #21326#25991#20013#23435
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
  end
  object btnGet: TButton
    Left = 328
    Top = 184
    Width = 169
    Height = 49
    Cursor = crHandPoint
    Caption = #25277' '#22870
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -32
    Font.Name = #21326#25991#26032#39759
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = btnGetClick
  end
  object btnPSet: TButton
    Left = 152
    Top = 344
    Width = 129
    Height = 33
    Caption = #22870#39033#35774#32622
    TabOrder = 2
  end
  object btnCodeSet: TButton
    Left = 312
    Top = 344
    Width = 129
    Height = 33
    Caption = #21495#30721#35774#32622
    TabOrder = 3
  end
  object btnExit: TButton
    Left = 312
    Top = 400
    Width = 129
    Height = 33
    Caption = #36864#20986#31243#24207
    TabOrder = 4
  end
  object btnClear: TButton
    Left = 152
    Top = 400
    Width = 129
    Height = 33
    Caption = #28165#38500#22870#21495
    TabOrder = 5
  end
  object Memo1: TMemo
    Left = 592
    Top = 288
    Width = 177
    Height = 249
    Lines.Strings = (
      '')
    TabOrder = 6
  end
  object Timer1: TTimer
    Interval = 1
    OnTimer = Timer1Timer
    Left = 80
    Top = 200
  end
end