frm_main.~dfm

delphi的源代码：查找通信设备的mac地址

object FrmMain: TFrmMain
  Left = 199
  Top = 97
  BorderStyle = bsDialog
  Caption = 'Powerline Configuration Utility'
  ClientHeight = 505
  ClientWidth = 569
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    569
    505)
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBoxDevice: TGroupBox
    Left = 8
    Top = 8
    Width = 553
    Height = 217
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = 'Device'
    TabOrder = 0
    object BtnScanDevice: TButton
      Left = 448
      Top = 176
      Width = 89
      Height = 25
      Action = ActScanDevice
      Caption = 'Scan'
      TabOrder = 0
    end
    object TreeViewDevice: TTreeView
      Left = 16
      Top = 24
      Width = 521
      Height = 137
      Indent = 19
      TabOrder = 1
      OnChange = TreeViewDeviceChange
    end
    object BtnUpdateSpeed: TButton
      Left = 312
      Top = 176
      Width = 129
      Height = 25
      Action = ActUpdateSpeed
      TabOrder = 2
    end
  end
  object GroupBoxPassword: TGroupBox
    Left = 8
    Top = 230
    Width = 553
    Height = 161
    Anchors = [akLeft, akRight, akBottom]
    Caption = 'Password'
    TabOrder = 1
    object LblRemoteDEK: TLabel
      Left = 16
      Top = 92
      Width = 184
      Height = 13
      Caption = 'Remote Default Encryption Key (DEK):'
    end
    object EdtPassword: TEdit
      Left = 16
      Top = 24
      Width = 521
      Height = 21
      TabOrder = 0
    end
    object ChkApplyToRemoteDevice: TCheckBox
      Left = 16
      Top = 64
      Width = 345
      Height = 17
      Caption = 'Also apply to the remote device'
      TabOrder = 1
      OnClick = ChkApplyToRemoteDeviceClick
    end
    object EdtRemoteDEK: TEdit
      Left = 216
      Top = 88
      Width = 321
      Height = 21
      TabOrder = 2
    end
    object BtnApplyPassword: TButton
      Left = 448
      Top = 120
      Width = 89
      Height = 25
      Action = ActApplyPassword
      Caption = 'Apply'
      TabOrder = 3
    end
    object BtnSetDefaultPassword: TButton
      Left = 352
      Top = 120
      Width = 89
      Height = 25
      Action = ActSetDefaultPassword
      Caption = 'Default'
      TabOrder = 4
    end
  end
  object GroupBoxPowerDownTimeout: TGroupBox
    Left = 8
    Top = 398
    Width = 553
    Height = 97
    Anchors = [akLeft, akRight, akBottom]
    Caption = 'Power Down Timeout'
    TabOrder = 2
    object CboPowerDownTimeout: TComboBox
      Left = 16
      Top = 24
      Width = 521
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = 'Disable'
      Items.Strings = (
        'Disable'
        '30 Seconds'
        '1 Minute'
        '2 Minutes'
        '3 Minutes')
    end
    object BtnSetDefaultPowerDownTimeout: TButton
      Left = 352
      Top = 56
      Width = 89
      Height = 25
      Action = ActSetDefaultPowerDownTimeout
      Caption = 'Default'
      TabOrder = 1
    end
    object BtnApplyPowerDownTimeout: TButton
      Left = 448
      Top = 56
      Width = 89
      Height = 25
      Action = ActApplyPowerDownTimeout
      Caption = 'Apply'
      TabOrder = 2
    end
  end
  object ActionManager: TActionManager
    Left = 24
    Top = 184
    StyleName = 'XP Style'
    object ActApplyPowerDownTimeout: TAction
      Caption = 'Apply Power Down Timeout'
      OnExecute = ActApplyPowerDownTimeoutExecute
      OnUpdate = ActApplyPowerDownTimeoutUpdate
    end
    object ActSetDefaultPowerDownTimeout: TAction
      Caption = 'Set Default Power Down Timeout'
      OnExecute = ActSetDefaultPowerDownTimeoutExecute
    end
    object ActApplyPassword: TAction
      Caption = 'Apply Password'
      OnExecute = ActApplyPasswordExecute
      OnUpdate = ActApplyPasswordUpdate
    end
    object ActSetDefaultPassword: TAction
      Caption = 'Set Default Password'
      OnExecute = ActSetDefaultPasswordExecute
    end
    object ActScanDevice: TAction
      Caption = 'Scan Device'
      OnExecute = ActScanDeviceExecute
    end
    object ActUpdateSpeed: TAction
      Caption = 'Update Speed'
      OnExecute = ActUpdateSpeedExecute
    end
  end
end