Unir Formularios

[agustin173]

ecfisa logre algo pero cuando doy un click en cualquier parte del formulario se minizatodo no me deja trabajar el codigo que puse fue el siguiente:



private
{ Private declarations }
Procedure MinimizarTodo(var Mensaje: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
FrmMenu: TFrmMenu;
implementation
// Para usar los Formularios.
uses Login, Entrada, Recepcion, Itebis;
{$R *.dfm}
procedure TFrmMenu.MinimizarTodo;
var
i: Integer;
begin
with Application do
for i:= 0 to ComponentCount -1 do
if (Components[i] is TForm) then
Minimize;
end;

dime que puedo hacer para que se minimize cuando presione el boton de minizar solamente.

[cloayza]

Amigos hagamos uso de las etiquetas, nos simplifica la lectura de los codigos...

Código Delphi [-]
private
{ Private declarations }
Procedure MinimizarTodo(var Mensaje: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;

var
FrmMenu: TFrmMenu;

implementation
// Para usar los Formularios.
uses Login, Entrada, Recepcion, Itebis;
{$R *.dfm}
procedure TFrmMenu.MinimizarTodo;
var
i: Integer;
begin
      with Application do
            for i:= 0 to ComponentCount -1 do
                if  (Components[i] is TForm) then
                    Minimize;
end;

Saludos cordiales

[*Caro*]

Hola agustin173, como te dice cloayza utiliza las etiquetas [ delphi] [ /delphi] sin los espacios, para tu codigo.

Sobre tu pregunta, cuando minimizas el formulario principal se minimizan todos los formularios no importa si son MDI, Normal o StayOnTop. Ahora si quieres minimizar desde otro formulario que no sea el principal, puedes hacer esto:

Código Delphi [-]
 procedure MinimizarTodo(var Msg: TMessage); message WM_SYSCOMMAND;
 
 procedure TFormXXX.MinimizarTodo(var Msg: TMessage);
 begin
  if Msg.wParam = SC_MINIMIZE then
    ShowWindow(Application.Handle, SW_MINIMIZE)
  else
   Inherited;
end;

Saluditos