Автор: Christian Cristofori

 

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

 

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

Code:

Const

DefMsgNorm = 'MyApp version 1.0';

DefMsgIcon = 'MyApp. (Use F12 to turn of)';

  

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

Code:

Var

ActMsgNorm : String;

ActMsgIcon : String;

 

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

Code:

Procedure TFormMain.FormCreate( Sender : TObject );

Begin

ActMsgNorm := DefMsgNorm;

ActMsgIcon := DefMsgIcon;

Application.Title := ActMsgNorm;

End;

 

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

Code:

Procedure TFormMain.FormResize( Sender : TObject );

Begin

If ( FormMain.WindowState = wsMinimized ) Then

   Application.Title := ActMsgIcon

Else

   Application.Title := ActMsgNorm;

End;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить