unit1.dfm.~38~

来自「全局快捷键的示例 采用EnumWindows使进程唯一,设置全局快捷键」· ~38~ 代码 · 共 79 行

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 279
  ClientWidth = 543
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ListView1: TListView
    Left = 16
    Top = 51
    Width = 377
    Height = 198
    Columns = <
      item
        Caption = 'Caption'
        Width = 150
      end
      item
        Caption = 'HandleID'
        Width = 100
      end>
    TabOrder = 0
    ViewStyle = vsReport
  end
  object GetAllWindow: TButton
    Left = 16
    Top = 20
    Width = 377
    Height = 25
    Caption = 'GetAllWindow'
    TabOrder = 1
    OnClick = GetAllWindowClick
  end
  object Button1: TButton
    Left = 399
    Top = 83
    Width = 114
    Height = 25
    Caption = 'Show/Hide Windows'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 399
    Top = 168
    Width = 75
    Height = 25
    Caption = 'Delete'
    TabOrder = 3
    OnClick = Button2Click
  end
  object PopupMenu1: TPopupMenu
    Left = 440
    Top = 216
    object N1: TMenuItem
      Caption = #39023#31034
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #38577#34255
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #38364#38281
      OnClick = N3Click
    end
  end
end