Hola Foro!
Tengo el siguiente problema: Para lograr que una ventana, al maximizarze, lo haga dejando un margen en la parte inferior de la pantalla, logré componer -en base al recorte de código de la web y a la ayuda de gente de aquí del foro-, el siguiente código:
Código Delphi
[-]
public
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
.
.
y luego implemento ...
Código Delphi
[-]
procedure TfrmPrincipal.WMSysCommand;
begin
if (Msg.CmdType = SC_MAXIMIZE) then
Constraints.MaxHeight := (Screen.Height)-(((Screen.Height) div 100)*5);
if (Msg.CmdType = SC_RESTORE) then
Constraints.MaxHeight := Screen.Height;
DefaultHandler(Msg);
end;
Funciona Ok, pero cuando efectuo un doble click en el título de la ventana, no funciona debido a que no he podido identificar e interceptar correctamente los mensajes asociados ...
Alguien puede ayudarme? ...
Gracias!