Автор: Christian Cristofori
В
примере показывается, как изменять заголовок окна (видимый в списке
задач при переключении между приложениями) при минимизации окна
в иконку.
Сперва
необходимо определить сообщение поумолчанию:
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;
Взято
из http://forum.sources.ru