Компонент Всплывающее окно - AdvAlert

[Vladya]

Доброго времени суток всем! У меня возник такой вопрос кто нибудь работал с компонентом "Всплывающее окно - AdvAlert"? Если есть такие пожалуйста подскажите как присвоить ему значение capture поля lebel ? и когда это значение было присвоено показывалось всплывающее окно на несколько секунд. Потомучто сам я что то не могу разобраться.
Заранее огромное спасибо!
Компонент можно скачать здесь - http://www.delphiexpert.ru/view_download.php?id=62

[Kotofff]

Если не ошибаюсь это не отдельный компонент, а маленький кусочек выдранный из TMS Components.
Демку AdvAlertWindow из полного набора TMS прикрепил. Только конечно для ее запуска в среде нужно установить пакет полностью...

[Vladya]

Да точно Вы не ошибаетесь, это только одна часть набора. Скачал Вашу демку и столкнулся со следующей проблемой. Пишу вот такой код:

procedure TForm1.AddMessage;
var
NewMsg: string;
  Begin
   NewMsg:='MEGA Player 2.0 - '+Form1.Label1.Caption;
   AdvAlertWindow1.AlertMessages.Add.Text.Text := NewMsg;
   AdvAlertWindow1.Show;
 End;

Но дело в том что при каждом запуске песни, рамочка вылезает - но пустая, подскажите бестолковому что я не так делаю?

[Kotofff]

Можно попробовать не через добавление, а изменять одно и то же сообщение

AdvAlertWindow1.AlertMessages.Items[0].Text.Text := NewMsg;

Это будет первое сообщение. Перед этим его (сообщение) нужно создать, например, пустое

AdvAlertWindow1.AlertMessages.Add.Text.Text := '  ';

иначе будет ошибка.

[Vladya]

Точно, все прекрасно работает, спасибо Вам огромнейшее.

[Vladya]

И еще один маленький вопрос: возможно ли как нибудь убрать с всплывающего окна кнопки (закрыть, следующее, предыдущее)?
Если я не понятно выразился то вот посмотрите на картинке что я хочу убрать, но не могу.

[Kotofff]

Если одно сообщение ,то он не показывает эти кнопки.
Есть еще свойство ShowDelete если оно false - не показывается кнопка удалить сообщение. И получается ничего не видно ...
Вот пример прикрепил ...