unit1.dfm

Java实例入门

object Form1: TForm1
  Left = 193
  Top = 108
  Width = 544
  Height = 375
  Caption = #19968#20010#31616#21333#30340#25991#26412#32534#36753#22120
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object RichEdit1: TRichEdit
    Left = 0
    Top = 58
    Width = 536
    Height = 271
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      '')
    ParentFont = False
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 329
    Width = 536
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = True
    SimpleText = #26410#21629#21517#25991#20214'.txt'
  end
  object ActionMainMenuBar1: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 536
    Height = 29
    ActionManager = ActionManager1
    Caption = 'ActionMainMenuBar1'
    EdgeOuter = esNone
    Spacing = 0
  end
  object ActionToolBar1: TActionToolBar
    Left = 0
    Top = 29
    Width = 536
    Height = 29
    ActionManager = ActionManager1
    AllowHiding = True
    Caption = 'ActionToolBar1'
    HorzSeparator = True
    Orientation = boLeftToRight
    PersistentHotKeys = False
    Spacing = 0
  end
  object ActionManager1: TActionManager
    ActionBars.SessionCount = 1
    ActionBars = <
      item
        Items = <
          item
            Items = <
              item
                Action = FileNew
                ImageIndex = 6
                ShortCut = 16462
              end
              item
                Action = FileSave
                ImageIndex = 8
                ShortCut = 16467
              end
              item
                Action = FileOpen1
                ImageIndex = 7
                ShortCut = 16463
              end
              item
                Action = FileSaveAs1
                ImageIndex = 30
              end
              item
                Action = FileExit1
                ImageIndex = 43
              end>
            Caption = #25991#20214'(&F)'
          end
          item
            Items = <
              item
                Action = EditCut1
                ImageIndex = 0
                ShortCut = 16472
              end
              item
                Action = EditCopy1
                ImageIndex = 1
                ShortCut = 16451
              end
              item
                Action = EditPaste1
                ImageIndex = 2
                ShortCut = 16470
              end>
            Caption = #32534#36753'(&E)'
          end
          item
            Items = <
              item
                Action = HelpContents1
                ImageIndex = 40
              end
              item
                Action = HelpIndex
              end
              item
                Action = HelpAbout
              end>
            Caption = #24110#21161'(&H)'
          end>
        ActionBar = ActionMainMenuBar1
        AutoSize = False
      end
      item
        Items.CaptionOptions = coNone
        Items = <
          item
            Action = FileNew
            ImageIndex = 6
            ShortCut = 16462
          end
          item
            Action = FileOpen1
            ImageIndex = 7
            ShortCut = 16463
          end
          item
            Action = FileSave
            ImageIndex = 8
            ShortCut = 16467
          end
          item
            Action = EditCut1
            ImageIndex = 0
            ShortCut = 16472
          end
          item
            Action = EditCopy1
            ImageIndex = 1
            ShortCut = 16451
          end
          item
            Action = EditPaste1
            ImageIndex = 2
            ShortCut = 16470
          end>
        ActionBar = ActionToolBar1
        AutoSize = False
      end>
    LinkedActionLists = <>
    Images = ImageList1
    Left = 256
    Top = 176
    object FileNew: TAction
      Category = #25991#20214
      Caption = #26032#24314'(&N)'
      Hint = #21019#24314#19968#20010#26032#25991#20214
      ImageIndex = 6
      ShortCut = 16462
      OnExecute = FileNewExecute
    end
    object FileOpen1: TFileOpen
      Category = #25991#20214
      Caption = #25171#24320'(&O)'
      Dialog.DefaultExt = 'txt'
      Dialog.Filter = #25991#26412#25991#20214'|*.txt|'#25152#26377#25991#20214'|*.*'
      Dialog.Title = #25171#24320#19968#20010#25991#20214
      Hint = #25171#24320#19968#20010#25991#20214
      ImageIndex = 7
      ShortCut = 16463
      OnAccept = FileOpen1Accept
    end
    object FileSave: TAction
      Category = #25991#20214
      Caption = #20445#23384'(&S)'
      Hint = #20445#23384#25991#20214
      ImageIndex = 8
      ShortCut = 16467
      OnExecute = FileSaveExecute
    end
    object HelpIndex: TAction
      Category = #24110#21161
      Caption = #32034#24341'(&I)'
      Hint = #26174#31034#24110#21161
      OnExecute = HelpIndexExecute
    end
    object HelpAbout: TAction
      Category = #24110#21161
      Caption = #20851#20110'(&A)'
      Hint = #20851#20110#26412#36719#20214
      OnExecute = HelpAboutExecute
    end
    object EditCut1: TEditCut
      Category = #32534#36753
      Caption = #21098#20999'(&t)'
      Hint = #21098#20999#25991#26412
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Category = #32534#36753
      Caption = #22797#21046'(&C)'
      Hint = #22797#21046#25991#26412
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = #32534#36753
      Caption = #31896#36148'(&P)'
      Hint = #31896#36148#25991#26412
      ImageIndex = 2
      ShortCut = 16470
    end
    object HelpContents1: THelpContents
      Category = #24110#21161
      Caption = #24110#21161#20869#23481'(&C)'
      Enabled = False
      Hint = #26174#31034#24110#21161
      ImageIndex = 40
      OnExecute = HelpContents1Execute
    end
    object FileSaveAs1: TFileSaveAs
      Category = #25991#20214
      Caption = #21478#23384#20026'...'
      Hint = #21478#23384#20026#19968#20010#25991#20214
      ImageIndex = 30
    end
    object FileExit1: TFileExit
      Category = #25991#20214
      Caption = #36864#20986'(&X)'
      Hint = #36864#20986#31243#24207
      ImageIndex = 43
    end
  end
  object ImageList1: TImageList
    Left = 344