Главная » Delphi » Пиктограммы и подсказки

0

Проще всего отобразить пиктограмму или подсказку с помощью свойств самого ком понента. Кроме  того,  свойство Icon имеет  тип TIcon, а это означает, что при  опреде лении  его значения можно  воспользоваться преимуществами встроенного редактора свойств Delphi, предназначенного для пиктограмм. Поскольку пиктограмма индикатора панели задач видима даже во время  разработки, необходимо убедиться  в том, что пикто грамма  и подсказка могут изменяться динамически. Для этого  не потребует особых  уси лий: нужно лишь убедиться  в том, что метод  SendTrayMessage() вызывается (с помо щью сообщения NIM_MODIFY) в методе write свойств  Hint и Icon.

Ниже  приведена реализация методов write для этих свойств:procedure TTrayNotifyIcon.SetIcon(Value: TIcon);

{ Метод Write для свойства Icon. }

begin

FIcon.Assign(Value);      // Установить новую пиктограмму

if FIconVisible then

{ Изменить пиктограмму на панели задач. }

SendTrayMessage(NIM_MODIFY, NIF_ICON);

end;

procedure TTrayNotifyIcon.SetHint(Value: String);

{ Метод установки для свойства Hint. }

begin

if FHint <> Value then begin

FHint := Value;

if FIconVisible then

{ Изменить подсказку пиктограммы на панели задач. }

SendTrayMessage(NIM_MODIFY, NIF_TIP);

end;

end;

Источник: Тейксейра, Стив, Пачеко, Ксавье.   Borland Delphi 6. Руководство разработчика. : Пер.  с англ. — М. : Издательский дом “Вильямс”, 2002. —  1120 с. : ил. — Парал. тит. англ.

По теме:

  • Комментарии