Карта сайтаСсылкиКонтакты

Как отобразить состояние формы

PDF Печать
Статьи

Когда форма минимизируется в значок, можно изменить сообщение, просматриваемое при переключении между приложениями в менеджере задач.

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


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; 

В Windows NT этот код не работает. Вот код:


public 
  { Public declarations } 
  procedure SysCmd(var Message: TWMSysCommand);
      message WM_SYSCOMMAND; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
     ActMsgNorm := DefMsgNorm; 
     ActMsgIcon := DefMsgIcon; 
     Application.Title := ActMsgNorm; 
end; 

procedure TForm1.SysCmd(var Message: TWMSysCommand); 
begin 
      if Message.CmdType = SC_MINIMIZE 
      then 
          begin 
               Application.Title := actMsgIcon; 
               Message.Result := 1; 
          end 
      else 
             Application.Title := actmsgnorm; 
      inherited; 
end; 

По материалам http://delphi3000.com


 

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


Защитный код
Обновить