unit1.dfm

Delphi的函数例子

object Form1: TForm1
  Left = 342
  Top = 280
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #31243#24207'1-2  '#20989#25968#12304'LowerCase'#12305#30340#24212#29992
  ClientHeight = 161
  ClientWidth = 381
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ShortName: TEdit
    Left = 123
    Top = 91
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'ShortName'
    OnExit = ShortNameExit
  end
  object Button1: TButton
    Left = 262
    Top = 90
    Width = 107
    Height = 24
    Caption = #23567#20889#23383#27597#36716#25442
    TabOrder = 1
    OnClick = Button1Click
  end
  object GroupBox1: TGroupBox
    Left = 10
    Top = 5
    Width = 361
    Height = 71
    Caption = #27010#36848#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 36
      Top = 27
      Width = 312
      Height = 17
      AutoSize = False
      Caption = #35813#20989#25968#23558#25991#26412#20013#30340#22823#20889#23383#27597#36716#25442#20026#23567#20889#23383#27597
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
end