Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

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

Вот вызываю агента,все работает

   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;

Вопрос задал: casio (статус: Посетитель) Вопрос отправлен: 13 января 2012, 16:52 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

casio (статус: Посетитель), 15 января 2012, 00:36 [#1]: вот такая ошибка вылетает http://pixs.ru/showimage/oshibkapng_5103113_3766232.png не ужели никто мне не поможет? (((

SOA (статус: Посетитель), 27 января 2012, 22:41 [#2]: Здравствуйте victor_as: , попробуйте такой код: var WindowHandle: THandle; MyRect: TRect; WindowName: PChar;   begin WindowName:='c:\Windows\System32\cmd.exe'; WindowHandle:=FindWindow(nil,WindowName); GetWindowRect(WindowHandle, MyRect); SetWindowPos(WindowHandle,HWND_TOPMOST,MyRect.Left, MyRect.Top, MyRect.Right - MyRect.Left, MyRect.Bottom - MyRect.Top , $0040); Переменная WindowName должна соответствовать Caption требуемого окна.

casio (статус: Посетитель), 27 января 2012, 23:32 [#3]: SOA: спасибо за помощь уже разобрался! Подскажите кто знает как работать с Ballonom (подскаска) или может у кого то есть компонент

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.