Изменяем заголовок окна.
Автор: 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;