Всплывающие окна (подсказки) с помощью AdvAlertWindow
08.09.2011
AdvAlertWindow
Как вы уже могли догадаться, этот компонент называется AdvAlertWindow и находится на общей вкладке, т.е. TMS.

Сразу же, давайте посмотри на небольшой пример:
1) Кинем на форму одну кнопку и собственно сам AdvAlertWindow.
2) В событии OnClick кнопки напишем следующие:
AdvAlertWindow1.AlertMessages.Add.Text.Text := 'Welcome to www.accross.su';
AdvAlertWindow1.Show;
3) Компилируем приложение, нажимаем кнопку и видим в правом нижнем углу медленно появляющееся окошко:

А теперь разберём, эти две строчки маленького кода.
Первая добавляет в "Коллекцию сообщений" текст 'Welcome to www.accross.su', а вторая строчка выводит на экран наше окно. Коллекция сообщений означает, что компонент хранит в себе множество различных сообщений. А вышеописанный метод Add лишь добавляет в конец новое сообщение, также есть метод Insert, который вставляет сообщение не в конец коллекции, а выбранную позицию.
//Вставляем сообщение в позицию i
AdvAlertWindow1.AlertMessages.Insert(i).Text.Text := 'Welcome to www.accross.su';
И как вы могли заметить AdvAlertWindow, как и многие другие компоненты от TMS поддерживает HTML разметку.
Кстати на скриншоте выше, видно снизу что всего сообщение два, а сейчас показано первое, там же есть кнопки навигации для просмотра истории сообщений (Назад - Вперёд и кнопка удаления текущего сообщения из коллекции).
Иконки
Все иконки (вперёд, назад, закрыть и т.д.) можно изменить, поставив вместо них изображение в формате .bmp, а вот и свойства отвечающие за это:
//Назад
AdvAlertWindow1.GlyphPrev: TBitmap;
//Вперёд
AdvAlertWindow1.GlyphNext: TBitmap;
//Удалить
AdvAlertWindow1.GlyphDelete: TBitmap;
//Закрыть
AdvAlertWindow1.GlyphClose: TBitmap;
//Контекстное меню, по умолчанию выключено =)
AdvAlertWindow1.GlyphPopup: TBitmap;
Всем этим кнопкам можно задать всплывающие подсказки:
AdvAlertWindow1.HintNextBtn: String;
AdvAlertWindow1.HintPrevBtn: String;
AdvAlertWindow1.HintDeleteBtn: String;
AdvAlertWindow1.HintCloseBtn: String;
AdvAlertWindow1.HintPopupBtn: String;
Что бы включить контекстное меню, надо установить свойство ShowPopup в значение True:
AdvAlertWindow1.ShowPopup := True;
Внешний вид
Первое что можно изменить во внешнем виде, так это стиль
AdvAlertWindow1.Style: TAdvAlertWindowStyle;
Или же вручную установить цвет у следующих свойств:
AdvAlertWindow1.WindowColor: TColor;
AdvAlertWindow1.WindowColorTo: TColor;
Цвет ссылок также можно изменить свойством URLColor
AdvAlertWindow1.URLColor: TColor;
которое по умолчанию имеет синий цвет.
За расположение подсказки отвечает следующее свойство:
AdvAlertWindow1.WindowPosition: TWindowPosition;
с его помощью можно указать начальное расположение окна - в любом из четырёх углов или по центру экрана.
Что бы размер окна автоматически подгонялся под размер сообщения, установите свойство AutoSize в True:
AdvAlertWindow1.AutoSize := True;
Время отображения
За временные параметры подсказки отвечают следующие свойства:
//Время отображения окна в мс
AdvAlertWindow1.DisplayTime: Integer;
//Время появления/исчезания окна в мс
AdvAlertWindow1.FadeTime: Integer;
На этой ноте пожалуй и закончим, у AdvAlertWindow есть ещё множество интересных и полезных свойств, и ничего сложного в их самостоятельном изучении нет.
