minimizar formularios

[jmariano]

Empezado por roman

Estaba a punto de escribir esto que mencionas, pero en realidad no sé si Federico tiene claro exactamente qué es lo que quiere. Es decir, con este cambio en el estilo de la ventana, no es que se minimice a la barra de tareas sino que tiene un botón en la barra de tareas, independientemente de si está minimizada o no.

Pues sip, tienes razón. Tal vez, una mejor manera de hacerlo (que, a lo mejor, se aproxima más a lo que quiere federiconqn21) es minimizando toda la aplicación al minimizar cualquiera de sus formularios, siempre que se trate, claro, de una aplicación tipo SDI.

Para ello, es necesario capturar el mensaje WM_SYSCOMMAND en todos los formularios exceptuando en el principal (que no hace falta):

Código Delphi [-]
type
  TForm2 = class(TForm)
  protected
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  end;

implementation

procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType and $FFF0) = SC_MINIMIZE Then
  begin
    Message.Result := 0;
    Application.Minimize;
  end
  else inherited;
end;

(Por cierto, he decir que este truco tampoco es mio)

En fin, ya nos aclarará federiconqn21 que es lo que necesita realmente o si le vale alguna de estas técnicas.

Saludos!