unit1.dfm

在delphi中实现windows核心编程.原书光盘代码核心编程.原书光盘代码

object Form1: TForm1
  Left = 105
  Top = 30
  Width = 428
  Height = 417
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Wwin9x'#19979#30340#36827#31243#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 420
    Height = 385
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #36827#31243
      object Button2: TButton
        Left = 394
        Top = 59
        Width = 92
        Height = 31
        Caption = #21047#26032#36827#31243
        TabOrder = 0
        OnClick = Button2Click
      end
      object Button1: TButton
        Left = 394
        Top = 138
        Width = 92
        Height = 31
        Caption = #20851#38381#36827#31243
        TabOrder = 1
        OnClick = Button1Click
      end
      object ListBox1: TListBox
        Left = 2
        Top = 10
        Width = 356
        Height = 395
        ItemHeight = 16
        ParentShowHint = False
        ShowHint = False
        Sorted = True
        TabOrder = 2
        OnMouseMove = ListBox1MouseMove
      end
      object CheckBox1: TCheckBox
        Left = 394
        Top = 236
        Width = 109
        Height = 21
        Caption = #23450#26102#26356#26032
        TabOrder = 3
        OnClick = CheckBox1Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #31383#21475
      ImageIndex = 1
      object Button3: TButton
        Left = 364
        Top = 79
        Width = 93
        Height = 31
        Caption = #26356#26032
        TabOrder = 0
        OnClick = Button3Click
      end
      object ListBox2: TListBox
        Left = 30
        Top = 20
        Width = 267
        Height = 365
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        Sorted = True
        TabOrder = 1
        OnMouseMove = ListBox2MouseMove
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 304
    Top = 8
  end
end