fkao.~dfm

一个很好的例子

object F_kao: TF_kao
  Left = 432
  Top = 189
  Width = 808
  Height = 579
  Caption = #32771#35797#36827#34892#20013#8230#8230
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 800
    Height = 57
    Align = alTop
    Color = clMoneyGreen
    TabOrder = 0
    object SpeedButton12: TSpeedButton
      Left = 672
      Top = 8
      Width = 81
      Height = 41
      Caption = #30475#25104#32489
      Flat = True
      Visible = False
      OnClick = SpeedButton12Click
    end
    object Panel4: TPanel
      Left = 287
      Top = 5
      Width = 217
      Height = 49
      BevelInner = bvLowered
      BevelWidth = 3
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clOlive
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 518
    Width = 800
    Height = 27
    Align = alBottom
    TabOrder = 1
    object StatusBar1: TStatusBar
      Left = 1
      Top = -1
      Width = 798
      Height = 27
      Hint = #40664#35748#24555#25463#38190
      Panels = <
        item
          Text = 'A'
          Width = 60
        end
        item
          Text = 'B'
          Width = 60
        end
        item
          Text = 'C'
          Width = 60
        end
        item
          Text = 'D'
          Width = 60
        end
        item
          Text = 'Y'
          Width = 60
        end
        item
          Text = 'N'
          Width = 60
        end
        item
          Text = 'U'
          Width = 100
        end
        item
          Text = 'DD'
          Width = 110
        end
        item
          Text = 'E'
          Width = 80
        end>
      ParentShowHint = False
      ShowHint = True
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 57
    Width = 800
    Height = 461
    Align = alClient
    TabOrder = 2
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 798
      Height = 459
      ActivePage = TabSheet2
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MultiLine = True
      ParentFont = False
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #36873#25321#39064
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        object Panel5: TPanel
          Left = 0
          Top = 0
          Width = 790
          Height = 369
          Align = alClient
          BevelOuter = bvLowered
          Color = clOlive
          ParentBackground = False
          TabOrder = 0
          object Label1: TLabel
            Left = 19
            Top = 66
            Width = 36
            Height = 16
            AutoSize = False
            Caption = #39064#30446#65306
            Transparent = True
          end
          object Label2: TLabel
            Left = 32
            Top = 118
            Width = 21
            Height = 16
            AutoSize = False
            Caption = 'A'#65306
            Transparent = True
          end
          object Label3: TLabel
            Left = 32
            Top = 160
            Width = 21
            Height = 16
            AutoSize = False
            Caption = 'B'#65306
            Transparent = True
          end
          object Label4: TLabel
            Left = 32
            Top = 203
            Width = 21
            Height = 16
            AutoSize = False
            Caption = 'C'#65306
            Transparent = True
          end
          object Label5: TLabel
            Left = 35
            Top = 246
            Width = 22
            Height = 16
            AutoSize = False
            Caption = 'D'#65306
            Transparent = True
          end
          object DBText2: TDBText
            Left = 55
            Top = 118
            Width = 505
            Height = 25
            DataField = 'xka_a'
            DataSource = DataModule3.xkaose
            Transparent = True
          end
          object DBText3: TDBText
            Left = 55
            Top = 160
            Width = 497
            Height = 17
            DataField = 'xka_b'
            DataSource = DataModule3.xkaose
            Transparent = True
          end
          object DBText4: TDBText
            Left = 55
            Top = 203
            Width = 490
            Height = 17
            DataField = 'xka_c'
            DataSource = DataModule3.xkaose
            Transparent = True
          end
          object DBText5: TDBText
            Left = 58
            Top = 246
            Width = 481
            Height = 17
            DataField = 'xka_d'
            DataSource = DataModule3.xkaose
            Transparent = True
          end
          object Label7: TLabel
            Left = 291
            Top = 272
            Width = 49
            Height = 16
            AutoSize = False
            Caption = #31572#26696#65306
          end
          object Label8: TLabel
            Left = 259
            Top = 312
            Width = 70
            Height = 16
            AutoSize = False
            Caption = #27491#30830#31572#26696#65306
            Visible = False
          end
          object DBText6: TDBText
            Left = 339
            Top = 272
            Width = 30
            Height = 25
            DataField = 'xka_gda'
            DataSource = DataModule3.xkaose
          end
          object DBText7: TDBText
            Left = 344
            Top = 312
            Width = 17
            Height = 25
            DataField = 'xka_ans'
            DataSource = DataModule3.xkaose
            Visible = False
          end
          object Image1: TImage
            Left = 375
            Top = 273
            Width = 33
            Height = 27
            Transparent = True
            Visible = False
          end
          object DBText12: TDBText
            Left = 352
            Top = 17
            Width = 33
            Height = 33
            DataField = 'xka_num'
            DataSource = DataModule3.xkaose
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -19
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label13: TLabel
            Left = 320
            Top = 21
            Width = 25
            Height = 16
            AutoSize = False
            Caption = #31532
          end
          object Label14: TLabel