unit1.dfm

Microsoft accessible接口的delphi实现

object Form1: TForm1
  Left = 215
  Top = 115
  Width = 863
  Height = 636
  Caption = 'ACCESSIBLE - OLEACC'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 328
    Top = 312
    Width = 241
    Height = 113
  end
  object Bevel2: TBevel
    Left = 328
    Top = 432
    Width = 241
    Height = 113
  end
  object Label16: TLabel
    Left = 408
    Top = 456
    Width = 91
    Height = 13
    Caption = 'Remonte au parent'
  end
  object Label17: TLabel
    Left = 368
    Top = 528
    Width = 67
    Height = 13
    Caption = 'premier enfant'
  end
  object Label18: TLabel
    Left = 464
    Top = 528
    Width = 65
    Height = 13
    Caption = 'dernier enfant'
  end
  object Label19: TLabel
    Left = 328
    Top = 0
    Width = 94
    Height = 13
    Caption = 'Capture de l'#39'object :'
  end
  object Image1: TImage
    Left = 328
    Top = 16
    Width = 225
    Height = 273
  end
  object Label1: TLabel
    Left = 576
    Top = 24
    Width = 95
    Height = 13
    Caption = 'Arbre de hi'#233'rarchie :'
  end
  object BoutonSuiviSouris: TButton
    Left = 16
    Top = 552
    Width = 161
    Height = 25
    Caption = 'reprise suivie de la souris'
    TabOrder = 0
    OnClick = BoutonSuiviSourisClick
  end
  object BoutonGetParent: TButton
    Left = 408
    Top = 472
    Width = 81
    Height = 25
    Caption = 'GetParent'
    TabOrder = 1
    OnClick = BoutonGetParentClick
  end
  object BoutonFirstChild: TButton
    Left = 360
    Top = 504
    Width = 81
    Height = 25
    Caption = 'FIRSTCHILD'
    TabOrder = 2
    OnClick = BoutonFirstChildClick
  end
  object BoutonPrevious: TButton
    Left = 336
    Top = 344
    Width = 65
    Height = 25
    Caption = 'PREVIOUS'
    TabOrder = 3
    OnClick = BoutonPreviousClick
  end
  object BoutonNext: TButton
    Left = 336
    Top = 376
    Width = 65
    Height = 25
    Caption = 'NEXT'
    TabOrder = 4
    OnClick = BoutonNextClick
  end
  object Boutonlastchild: TButton
    Left = 456
    Top = 504
    Width = 81
    Height = 25
    Caption = 'LASTCHILD'
    TabOrder = 5
    OnClick = BoutonlastchildClick
  end
  object BoutonUp: TButton
    Left = 456
    Top = 336
    Width = 65
    Height = 25
    Caption = 'UP'
    TabOrder = 6
    OnClick = BoutonUpClick
  end
  object BoutonDown: TButton
    Left = 456
    Top = 392
    Width = 65
    Height = 25
    Caption = 'DOWN'
    TabOrder = 7
    OnClick = BoutonDownClick
  end
  object BoutonRight: TButton
    Left = 488
    Top = 364
    Width = 65
    Height = 25
    Caption = 'RIGHT'
    TabOrder = 8
    OnClick = BoutonRightClick
  end
  object BoutonLeft: TButton
    Left = 416
    Top = 364
    Width = 65
    Height = 25
    Caption = 'LEFT'
    TabOrder = 9
    OnClick = BoutonLeftClick
  end
  object StaticText1: TStaticText
    Left = 384
    Top = 316
    Width = 137
    Height = 17
    Alignment = taCenter
    Caption = 'Navigation parmi les enfants'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentFont = False
    TabOrder = 10
  end
  object StaticText2: TStaticText
    Left = 376
    Top = 436
    Width = 144
    Height = 17
    Alignment = taCenter
    Caption = 'Navigation parent <-> enfants'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentFont = False
    TabOrder = 11
  end
  object BoutonValeur: TButton
    Left = 360
    Top = 552
    Width = 201
    Height = 25
    Caption = 'Donner la valeur '#224' l'#39'objet'
    TabOrder = 12
    OnClick = BoutonValeurClick
  end
  object BoutonArbre: TButton
    Left = 768
    Top = 7
    Width = 73
    Height = 25
    Caption = 'Cr'#233'er l'#39'arbre'
    TabOrder = 13
    OnClick = BoutonArbreClick
  end
  object TreeView: TTreeView
    Left = 576
    Top = 40
    Width = 273
    Height = 561
    Images = ImageList1
    Indent = 19
    StateImages = ImageList1
    TabOrder = 14
    OnClick = TreeViewClick
  end
  object Edit7: TEdit
    Left = 360
    Top = 584
    Width = 201