unit1.~dfm

Virtual Desktop虚拟桌面很简单的实现

object Form1: TForm1
  Left = 370
  Top = 395
  Align = alCustom
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #34394#25311#26700#38754
  ClientHeight = 226
  ClientWidth = 294
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMinimized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 8
    Top = 8
    Width = 273
    Height = 177
    AutoSize = False
    Caption = 
      #28909#38190#23450#20041#65306#13#10'    Ctrl+F1'#65306' '#20999#25442#21040#26700#38754'1'#65288#21407#22987#26700#38754#65289#65307#13#10'    Ctrl+F2'#65306' '#20999#25442#21040#26700#38754'2'#65307#13#10'    Ctr' +
      'l+F3'#65306' '#20999#25442#21040#26700#38754'3'#65307#13#10'    Ctrl+F4'#65306' '#20999#25442#21040#26700#38754'4'#65307#13#10'    Ctrl+F5'#65306' '#20999#25442#21040#26700#38754'5'#65307#13#10'    C' +
      'trl+F6'#65306' '#20999#25442#21040#26700#38754'6'#65307#13#10'    Ctrl+F7'#65306' '#20999#25442#21040#26700#38754'7'#65307#13#10'    Ctrl+F8'#65306' '#20999#25442#21040#26700#38754'8'#65307#13#10'   ' +
      ' Ctrl+F9'#65306' '#20999#25442#21040#26700#38754'9'#65307#13#10'    Ctrl+F10'#65306#20999#25442#21040#26700#38754'10'#65307#13#10'    Ctrl+F11'#65306#20999#25442#21040#26700#38754'11'#65307#13 +
      #10'    Ctrl+F12'#65306#20999#25442#21040#26700#38754'12'#12290#13#10
  end
  object Label1: TLabel
    Left = 232
    Top = 186
    Width = 28
    Height = 13
    Caption = 'XJGS'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 109
    Top = 192
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 0
    OnClick = Button1Click
  end
  object RzTrayIcon1: TRzTrayIcon
    Hint = #34394#25311#26700#38754
    PopupMenu = PopupMenu1
    Left = 8
    Top = 192
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Left = 136
    Top = 152
    object N2: TMenuItem
      AutoHotkeys = maManual
      Caption = #20999#25442#21040
      object N11: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'1'
        Checked = True
        OnClick = N11Click
      end
      object N21: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'2'
        OnClick = N11Click
      end
      object N31: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'3'
        OnClick = N11Click
      end
      object N41: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'4'
        OnClick = N11Click
      end
      object N51: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'5'
        OnClick = N11Click
      end
      object N61: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'6'
        OnClick = N11Click
      end
      object N71: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'7'
        OnClick = N11Click
      end
      object N81: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'8'
        OnClick = N11Click
      end
      object N91: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'9'
        OnClick = N11Click
      end
      object N101: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'10'
        OnClick = N11Click
      end
      object N111: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'11'
        OnClick = N11Click
      end
      object N121: TMenuItem
        AutoCheck = True
        Caption = #26700#38754'12'
        OnClick = N11Click
      end
    end
    object N1: TMenuItem
      AutoHotkeys = maManual
      AutoLineReduction = maManual
      Caption = #20851#20110
      OnClick = N1Click
    end
    object close1: TMenuItem
      Caption = #36864#20986
      OnClick = close1Click
    end
  end
  object XPManifest1: TXPManifest
    Left = 48
    Top = 200
  end
end