| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как можно вставить свою иконку в MessageBox, подробнее [XP]

Khim ©   (2006-01-02 10:44:00) 

Как можно вставить свою иконку в MessageBox?
Подробнее ... Заранее спасибо

---

Fenik   (2006-01-02 11:19:00) [1]

Смотри в юните Dialogs функцию CreateMessageDialog.
Там есть такое (D5):

   if IconID <> nil then
     with TImage.Create(Result) do
     begin
       Name := 'Image';
       Parent := Result;
       Picture.Icon.Handle := LoadIcon(0, IconID);
       SetBounds(HorzMargin, VertMargin, 32, 32);
     end;

Так вот подумай, как это переделать, чтобы была твоя иконка.

---

Наверх