object DlgKeyInput: TDlgKeyInput Left = 0 Top = 0 BorderIcons = [biSystemMenu, biMaximize] Caption = #53412' '#51077#47141 ClientHeight = 296 ClientWidth = 899 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Position = poOwnerFormCenter OnClose = FormClose TextHeight = 13 object Splitter1: TSplitter Left = 0 Top = 89 Width = 899 Height = 5 Cursor = crVSplit Align = alTop ExplicitWidth = 635 end object mmKeyInput: TMemo Left = 0 Top = 0 Width = 899 Height = 89 Align = alTop ImeName = 'Microsoft Office IME 2007' PopupMenu = popFun ReadOnly = True ScrollBars = ssVertical TabOrder = 0 ExplicitWidth = 629 end object mmKeylog: TMemo Left = 0 Top = 94 Width = 899 Height = 202 Align = alClient ImeName = 'Microsoft Office IME 2007' PopupMenu = popFun ReadOnly = True ScrollBars = ssVertical TabOrder = 1 ExplicitWidth = 629 ExplicitHeight = 236 end object popFun: TPopupMenu AutoHotkeys = maManual Left = 128 Top = 136 object miClear: TMenuItem Caption = #47784#46160' '#51648#50864#44592'(&C)' OnClick = miClearClick end end end