Изменяем заголовок окна.

Автор: Christian Cristofori

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

Совместимость: Delphi 4.x (или выше)

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

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;