Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Пользовательский интерфейс / Изменяем заголовок окна.

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

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

Совместимость: 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; 

Автор: Christian Cristofori (zizzo81@hotmail.com)
Источник: http://www.sources.ru/delphi/

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru