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

Автор: 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

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...