unit1.dfm

Agent动画演示 Agent动画人物使用演示 安装：Agent是一种ActiveX控件

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 626
  Height = 309
  Caption = 'Agent'#21160#30011#20154#29289#28436#31034
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object MyAgent: TAgent
    Left = 118
    Top = 88
    Width = 32
    Height = 32
    ControlData = {020200004F0300004F030000}
  end
  object Button10: TButton
    Left = 222
    Top = 96
    Width = 75
    Height = 25
    Caption = #25171#24320
    TabOrder = 1
    OnClick = Button10Click
  end
  object Button11: TButton
    Left = 342
    Top = 96
    Width = 75
    Height = 25
    Caption = #20851#38381
    Enabled = False
    TabOrder = 2
    OnClick = Button11Click
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 603
    Height = 73
    Enabled = False
    TabOrder = 3
    object Button1: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = #26174#31034
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 88
      Top = 8
      Width = 75
      Height = 25
      Caption = #38544#34255
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 168
      Top = 8
      Width = 75
      Height = 25
      Caption = #31227#21160
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 440
      Top = 8
      Width = 75
      Height = 25
      Caption = #21160#20316
      TabOrder = 3
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 520
      Top = 8
      Width = 75
      Height = 25
      Caption = #20572#27490#21160#20316
      TabOrder = 4
      OnClick = Button5Click
    end
    object ComboBox1: TComboBox
      Left = 248
      Top = 8
      Width = 185
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Text = #25215#35748
      Items.Strings = (
        'Acknowledge '#25215#35748
        'LookDown '#21521#19979#30475
        'Sad '#24754#20260
        'Alert '#35686#21578
        'LookDownBlink '#21521#19979#30475#30504#30524' '
        'Search '#23547#25214
        'Announce '#22768#26126' '
        'LookUp '#21521#19978#30475' '
        'StartListening '#24320#22987#32838#21548
        'Blink '#30504#30524' '
        'LookUpBlink '#21521#19979#30475#30504#30524' '
        'StopListening '#20572#27490#32838#21548
        'Confused '#36855#24785' '
        'LookLeft '#21521#24038#30475' '
        'Suggest '#24314#35758
        'Congratulate '#31069#36154' '
        'LookLeftBlink '#21521#24038#30475#30504#30524' '
        'Surprised '#21507#24778
        'Decline '#25298#32477' '
        'LookRight '#21521#21491#30475' '
        'Think '#24605#32771
        'DontRecognize '#19981#25215#35748' '
        'LookRightBlink '#21521#21491#30475#30504#30524' '
        'Wave '#25381#21160
        'Explain '#35299#37322' '
        'MoveDown '#21521#19979#31227#21160' '
        'Write '#20070#20889
        'GestureDown '#21521#19979#23039#21183' '
        'MoveUp '#21521#19978#31227#21160' '
        'Processing '#35745#31639#8230#8230
        'GestureUp '#21521#19978#23039#21183' '
        'MoveRight '#21521#21491#31227#21160' '
        'Reading '#38405#35835#8230#8230
        'GestureLeft '#21521#24038#23039#21183' '
        'MoveLeft '#21521#24038#31227#21160' '
        'Searching '#23547#25214#8230#8230
        'GestureRight '#21521#21491#23039#21183' '
        'Pleased '#39640#20852' '
        'Writing '#20070#20889#8230#8230
        'GetAttention '#33719#24471#27880#24847' '
        'Read '#38405#35835' '
        'Greet '#38382#20505' '
        'RestPose '#24674#22797#21021#22987#29366#24577)
    end
    object Button6: TButton
      Left = 8
      Top = 40
      Width = 75
      Height = 25
      Caption = #35828#35805
      TabOrder = 6
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 88
      Top = 40
      Width = 75
      Height = 25
      Caption = #32553#23567
      TabOrder = 7
      OnClick = Button7Click
    end
    object Button8: TButton
      Left = 168
      Top = 40
      Width = 75
      Height = 25
      Caption = #25918#22823
      TabOrder = 8
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 248
      Top = 40
      Width = 75
      Height = 25
      Caption = #36824#21407
      TabOrder = 9
      OnClick = Button9Click
    end
  end
  object Memo1: TMemo
    Left = 123
    Top = 137
    Width = 394
    Height = 137
    Ctl3D = False
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      '              Agent'#21160#30011#20154#29289#20351#29992#28436#31034
      ''
      #23433#35013#65306'Agent'#26159#19968#31181'ActiveX'#25511#20214#65292#22312'Delphi IDE'#20013#36873#25321#33756#21333'Component'#65292
      '     Import ActiveX Control'#65292#36873#25321'Microsoft Agent Control 2.0'
      '    '#65288'Version 2.0'#65289#65292#28857'Install'#23433#35013#20415#21487#12290
      #20854#23427#65306#35831#30452#25509#26597#30475#26412#31243#24207#28304#30721#21450#30456#20851#35774#32622#65292#31069#20320#24555#20048#65281#65281#65281
      ''
      #22791#27880#65306#26159#36319#25454#12298#34081#33457#23453#20856'7'#12299#37324#30340#36164#26009#21046#20316#65292#20294#19981#30693#25991#31456#20316#32773#26159#35841#65292#22312#27492#35874
      '     '#36807#20102#65281
      ''
      'Delphi'#29233#22909#32773#65306#26143#20116' [e-mail] QQ593106 2004.7.18')
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 4
  end
  object OpenDialog1: TOpenDialog
    Filter = #20195#29702#25991#20214'(*.ACS)|*.acs'
    Title = #25171#24320#20195#29702#25991#20214
    Left = 166
    Top = 96
  end
end