cframemenu.~dfm

来自「Delphi深度探索,Delphi深度探索（第二版）」· ~DFM 代码 · 共 95 行

object FrameMenu: TFrameMenu
  Left = 0
  Top = 0
  Width = 147
  Height = 264
  Align = alLeft
  Color = clBackground
  ParentColor = False
  TabOrder = 0
  object iwlCorp: TIWLink
    Left = 16
    Top = 48
    Width = 113
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Color = clWindowText
    Caption = #21333#20301#21015#34920
    Font.BackColor = clNone
    Font.Color = clInfoBk
    Font.Enabled = True
    Font.Size = 12
    Font.Style = [fsBold]
    ScriptEvents = <>
    DoSubmitValidation = False
    OnClick = iwlCorpClick
  end
  object iwlHuman: TIWLink
    Left = 16
    Top = 88
    Width = 113
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Color = clWindowText
    Caption = #20154#21592#21015#34920
    Font.BackColor = clNone
    Font.Color = clInfoBk
    Font.Enabled = True
    Font.Size = 12
    Font.Style = [fsBold]
    ScriptEvents = <>
    DoSubmitValidation = False
    OnClick = iwlHumanClick
  end
  object iwlQuery: TIWLink
    Left = 16
    Top = 136
    Width = 129
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Color = clWindowText
    Caption = #20154#21592#20449#24687#26597#35810
    Font.BackColor = clNone
    Font.Color = clInfoBk
    Font.Enabled = True
    Font.Size = 12
    Font.Style = [fsBold]
    ScriptEvents = <>
    DoSubmitValidation = False
    OnClick = iwlQueryClick
  end
  object iwlVisit: TIWLink
    Left = 16
    Top = 184
    Width = 105
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Color = clWindowText
    Caption = #35775#38382#32479#35745
    Font.BackColor = clNone
    Font.Color = clInfoBk
    Font.Enabled = True
    Font.Size = 12
    Font.Style = [fsBold]
    ScriptEvents = <>
    DoSubmitValidation = False
    OnClick = iwlVisitClick
  end
end