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

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

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

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

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

Пример:

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

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;