Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 83623
22.04.2007, 00:24
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, эксперты!
1) Как написать приложение с иконкой в системном лотке и без появления формы при запуске программы. Контексное меню иконки в трее должно присутствовать.
2) Как заставить окно приложения при запуске находиться поверх всех окон. Кнопка "свернуть" должна функционировать.
3) В системе существуют окна-сообщения Восклицание, Вопрос, Ошибка и т.п. Как генерировать такие окна-сообщения?

Ответ на вопросы было бы здорово увидеть с примером.
Заранее огромное спасибо!

Обсуждение

Неизвестный
22.04.2007, 16:29
общий
это ответ
Здравствуйте, Тюрин Евгений Сергеевич!

1) Рекомендую воспользоваться сторонним компонентом который позволяет добавлять иконку приложения в трей. Например <b>RzTrayIcon</b> из набора <a href=http://www.raize.com><b>Raize Components</b></a>, далее Вам просто понадобиться связать связать свойство объекта <i>PopupMenu</i> с объектом <b>PopupMenu1</b>, который уже наполнен необходимыми пунктами.

2) Достаточно будет такого подхода:
<code>procedure TForm1.FormCreate(Sender: TObject);
begin
{ Form1.FormStyle:=fsStayOnTop;}//окно будет ВСЕГДА поверх
SetForeGroundWindow(Application.Handle);//установить окно поверх остальных
end;</code>

3) Генерировать такие сообщения можно при помощи функции
<font color=purple><b>function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): integer;</b></font>

Пример использования:
<b>Application.MessageBox(‘текст1‘,‘текст2‘,MB_OK or MB_X);</b>

где MB_X может принимать такие значения:
MB_ICONWARNING; - сообщение со знаком восклицания
MB_ICONERROR; - знак красный круг с белым крестом;
MB_ICONINFORMATION; - знак буквы I;
MB_ICONQUESTION; - знак вопроса;
MB_USERICON; - без иконки

Good Luck!!!
Форма ответа