БОЛЬШОЙ FAQ ПО DELPHI



Как изменить заголовок приложения

- Чем отличается программист от политика?
- Программисту платят деньги за работающие программы.

В примере показывается, как изменять заголовок окна (видимый в списке задач при переключении между приложениями) при минимизации окна в иконку.

Пример:

Сперва необходимо определить сообщение поумолчанию:


 const
   DefMsgNorm = 'MyApp version 1.0';
   DefMsgIcon = 'MyApp. (Use F12 to turn of)';
 

И добавить две глобальных переменных:


 var
   ActMsgNorm : string;
   ActMsgIcon : string;
 

Затем при открытии основной формы инициализируем переменные из констант:


 procedure TFormMain.FormCreate(Sender: TObject);
 begin
   ActMsgNorm := DefMsgNorm;
   ActMsgIcon := DefMsgIcon;
   Application.Title := ActMsgNorm;
 end;
 

Затем достаточно в обработчик OnResize добавить следующий код:


 procedure TFormMain.FormResize(Sender: TObject);
 begin
   if FormMain.WindowState = wsMinimized then
     Application.Title := ActMsgIcon
   else
     Application.Title := ActMsgNorm;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ