Как изменить заголовок приложения

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

— Чем отличается программист от политика?

— Программисту платят деньги за работающие программы.

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

Пример:

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

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;

{/codecitation}

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