serverviewunit.dfm

三层的通用架构

object ServerViewForm: TServerViewForm
  Left = 242
  Top = 110
  Width = 545
  Height = 388
  ActiveControl = Button4
  Caption = #26381#21153#22120#31471#23519#30475#31383#21475
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 304
    Width = 537
    Height = 57
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    OnResize = Panel1Resize
    object Button1: TButton
      Left = 78
      Top = 16
      Width = 75
      Height = 25
      Caption = #28165#31354'(&R)'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 231
      Top = 16
      Width = 75
      Height = 25
      Caption = #20445#23384'(&S)'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 328
      Top = 16
      Width = 75
      Height = 25
      Caption = #35013#20837'(&L)'
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 424
      Top = 16
      Width = 75
      Height = 25
      Cancel = True
      Caption = #20851#38381'(&C)'
      Default = True
      TabOrder = 3
      OnClick = Button4Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 537
    Height = 304
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #24403#21069#35760#24405
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 529
        Height = 277
        Align = alClient
        PopupMenu = PopupMenu1
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20445#23384#35760#24405
      ImageIndex = 1
      object Memo2: TMemo
        Left = 0
        Top = 0
        Width = 529
        Height = 264
        Align = alClient
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
      end
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'LOG'
    Filter = #35760#24405#25991#20214' (*.log)|*.log|'#25152#26377#25991#20214' (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 72
    Top = 104
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'LOG'
    Filter = #35760#24405#25991#20214' (*.log)|*.log|'#25152#26377#25991#20214' (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 112
    Top = 104
  end
  object PopupMenu1: TPopupMenu
    Images = TheMainForm.ImageList1
    Left = 40
    Top = 104
    object A1: TMenuItem
      AutoCheck = True
      Caption = #33258#21160#20445#23384#35760#24405'(&A)'
      ShortCut = 122
      OnClick = A1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object I1: TMenuItem
      Caption = #23519#30475#36828#31243#23458#25143#20449#24687'(&I)'
      ShortCut = 123
      OnClick = I1Click
    end
  end
end