Alterar el Toolbar de un Form

[[seoane]]

Al menos en la versión 7 de delphi los formularios disponen de la propiedad MaxHeight que permite indicar la altura máxima del formulario. Podrás cambiar el tamaño de la ventana, maximizarla, restaurarla, etc. pero la altura nunca sera mayor que la que ahí se indica.

En tu caso la podríamos utilizar en el evento OnCreate

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Constraints.MaxHeight:= (Screen.Height) - (Screen.Height div 9);
end;

[[seoane]]

De todas formas y volviendo a tu pregunta, si quieres seguir haciéndolo de esa manera deberías de hacer algo como esto:

Código Delphi [-]
procedure TForm1.WMSysCommand;
begin
  inherited;
  if (Msg.CmdType = SC_MAXIMIZE) then
  begin
    Top := 0;
    Left := 0;
    Height := (Screen.Height) - (Screen.Height div 9);
    Width := Screen.Width;
  end;
end;

De esta manera ya podrás maximizar y restaurar sin problemas, aunque si se modifica el tamaño de la ventana manualmente no podrás controlarlo como si lo hace la propiedad MaxHeight.

[nemo]

Wow.... que ingenioso!! Solucionaste mi problema en una sola línea!!!

Muchísimas Gracias!

[Neftali [Germán.Estévez]]

Hola nemo.
Bienvenido a estos foros, ya que eres relativamente nuevo.

Te recomiendo que leas la Guía de estilo y que utilices TAG's en tus mensajes cuando coloques código Delphi.

NOTA: Mira el código que has añadido tú y el que ha añadido Seoane. ¿Cual se lee mejor?