максимизация формы

[artemavd]

Доброе утро Подскажите какая процедура отвечает за действие при развертывании окна на весь экран? В свойствах формы есть пункт BordeIcons, у него есть свойство biMaximize. Мне нужно, чтобы когда нажималась кнопка максимизации, то выполнялось какое-то действие. Пробовал Align, но эт не то.

[Kotofff]

Объявляем :

  private
    procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;

Используем :

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
   case (msg.CmdType and $FFF0) of
     SC_MINIMIZE: begin
                  // минимизация формы
                  end;
     SC_RESTORE : begin
                  // возврат после развертывания формы
                  end;
     SC_MAXIMIZE: begin
                  // максимизация формы
                  end;
   end;
   inherited;
end;

Можно использовать функцию, так сказать, обработки окончания изменения размеров окна :

  private
    procedure WMSize( Var msg: TWMSize ); Message WM_SIZE;

Используем :

procedure TForm1.WMSize(var msg: TWMSize);
begin
  case msg.Sizetype of
    SIZE_MAXIMIZED:
      begin
      // максимизация формы
      end;
    SIZE_MINIMIZED:
      begin
      // минимизация формы
      end;
    SIZE_RESTORED:
      begin
      // возврат после развертывания формы
      end;
    end;
  inherited;
end;