Как изменить заголовок приложения
|
- Чем отличается программист от политика?
- Программисту платят деньги за работающие программы.
|
В примере показывается, как изменять заголовок окна (видимый в списке задач при переключении между приложениями) при минимизации окна в иконку.
Пример:
Сперва необходимо определить сообщение поумолчанию:
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;
|
|
