[victor_as]

Здравствуйте, подскажите кто знает, как сделать чтобы Microsof Agent 2.0 был всегда поверх окон. Подробнее есть главная форма на ней таймер, в таймере создаются окна, когда создается окно то агент пропадает...

Агент - это анимированый персонаж, если помните в MS Office2003 были они (мерлин,робот,кот)

вызов агента работает
Код:

Код:

   Agent1.Characters.Load('MyAgent', Put.Text);
   Chars:= Agent1.Characters.Character('MyAgent') as IAgentCtlCharacterEx;
          Req:=Chars.Show(0);
          Agent1.Characters.Load('MyAgent', 'Здраствуйте!!!');
      // работа с помощником
      { Установка начальных координат }
         Agent1.Characters['MyAgent'].Left := 0;
         Agent1.Characters['MyAgent'].Top  := 0;
         { Появление персонажа с анимацией }
        Agent1.Characters['MyAgent'].Show(False);
         { Переезжаем в противоположный угол }
        Agent1.Characters['MyAgent'].MoveTo(Screen.WorkAreaWidth-  Agent1.Characters['MyAgent'].Width,
           Screen.WorkAreaHeight-Agent1.Characters['MyAgent'].Height, 1500);
         { Приветствие }
         Agent1.Characters['MyAgent'].Play('Greet');
         { Читаем содержимое }
         Agent1.Characters['MyAgent'].Speak('Текст подсказок', '');
         { Скрываем персонажа с анимацией }
         //Agent1.Characters['MyAgent'].Hide(False);
         //Timer10sec.Enabled := True;

код в таймере, пропадает агент

Код:

Код:

procedure TForm1.Timer_HelpTimer(Sender: TObject);
var i : integer;F:TForm;
begin
i:=i+1;
if i = 1 then 
begin
  F:=TForm_2.Create(Self);
  F.Show;
end;
.......................
end;