Cita:
|
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!