guidunit.dfm

三层的通用架构

object GUIDForm: TGUIDForm
  Left = 243
  Top = 193
  ActiveControl = Edit1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25509#21475
  ClientHeight = 140
  ClientWidth = 329
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 24
    Top = 20
    Width = 36
    Height = 12
    Caption = '&CLSID:'
    FocusControl = Edit1
  end
  object Label2: TLabel
    Left = 24
    Top = 54
    Width = 42
    Height = 12
    Caption = '&ProgID:'
    FocusControl = Edit2
  end
  object Bevel1: TBevel
    Left = 14
    Top = 84
    Width = 301
    Height = 9
    Shape = bsTopLine
  end
  object Edit1: TEdit
    Left = 70
    Top = 16
    Width = 235
    Height = 20
    Hint = 'ServerGUID'
    MaxLength = 16
    ParentShowHint = False
    ReadOnly = True
    ShowHint = False
    TabOrder = 0
    Text = #22240#19982#20854#20182#31243#24207#20914#31361#36896#25104'COM'#26410#33021#27880#20876
  end
  object Edit2: TEdit
    Left = 70
    Top = 50
    Width = 235
    Height = 20
    Hint = 'ServerName'
    MaxLength = 16
    ParentShowHint = False
    ReadOnly = True
    ShowHint = False
    TabOrder = 1
    Text = #24314#35758#21462#28040#37096#20998#31243#24207#30340#27880#20876#20877#36816#34892#26412#31243#24207
  end
  object Button1: TButton
    Left = 127
    Top = 100
    Width = 75
    Height = 25
    Cancel = True
    Caption = #30830#23450'(&O)'
    Default = True
    TabOrder = 2
    OnClick = Button1Click
  end
end