Показать сообщение отдельно
  #12  
Старый 27.05.2011, 15:27
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

извращение полное, конечно, но больше ничего сделать не получается в расчет самописные формы, похожие на Office 2000/2003, не беру.



это отображается объект Assistant из Office 2000/2003. естественно для этого должен быть установлен офис 2003 с его помощником.

Код:
uses
  ComObj,
  ActiveX,

var
  o: Variant;
  b: Variant;
begin
  o:=CreateOleObject('Word.Application');
  o.Assistant.Visible:=True;
  o.Assistant.FileName:='Merlin.acs';
  b:=o.Assistant.NewBalloon;
  b.Icon:=4;
  b.Heading:='Вы не ответили на мой ответ.';
  b.Text:='ДА НЕБЫЛО НИ ЕДИНОГО РАЗРЫВА!!! С НОЯБРЯ ПРОШЛОГО ГОДА! А СЕГОДНЯ ЦЕЛЫХ ЧЕТТТТЫЫРЕЕЕЕ РАЗРЫВА!!! ОТВЕЧАЙТЕ НА МОЙ КОНКРЕТНЫЙ ПОСТАВЛЕНЫЙ ВОПРОС!!!';
  b.BalloonType:=0;
  b.Mode:=0;
  b.Button:=1;
  Tag:=b.Show;
  b.Close;
  o.Quit;
end;

__________________
Пишу программы за еду.
__________________
Ответить с цитированием