Изменяем заголовок окна
Материал из DRKB
Изменяем заголовок окна[править | править код]
В примере показывается, как изменять заголовок окна (видимый в списке задач при переключении между приложениями) при минимизации окна в иконку.
Сперва необходимо определить сообщение поумолчанию:
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;
Source: Взято из http://forum.sources.ru
ID: 00475