[victor_as]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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;

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

Код:

Код:

1 2 3 4 5 6 7 8 9 10 11

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;

[victor_as]

вот такая ошибка вылетает

http://pixs.ru/showimage/oshibkapng_5103113_3766232.png

не ужели никто мне не поможет? (((

[AlexSku]

Переменная i без инициализации, это очень плохо, т.к. в ней может быть мусор. Объявляйте её или глобальной, или полем в главной форме (в последнем случае гл. форма сама запишет туда 0).

[victor_as]

спасибоооооо