Unir Formularios

[agustin173]

ecfisa donde debo poner este codigo en que parte de la aplicacion, porque copie lo que me diste y lo pegue y no me funciona ose me da un error que no reconoce que declare Tform1.minizartodo"

no entiendo por favor aclare un poco.

[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

[ecfisa]

Empezado por agustin173

ecfisa donde debo poner este codigo en que parte de la aplicacion, porque copie lo que me diste y lo pegue y no me funciona ose me da un error que no reconoce que declare Tform1.minizartodo"

no entiendo por favor aclare un poco.

Hola Agustin.

Perdón por tardar con la respuesta pero me fuí a dormir...

De todos modos hubiera sido la misma que te dio cloayza.
Y sí, Caro tiene razón. ( lo que demuestra que me tendría que haber ido a dormir antes... )


Saludos.

[agustin173]

Muchas pero muchas gracias ahora si me funciona bien estoy muy agradecido con este foro porque aparte de enseñarme me ayudan sin condicion.

Gracias a mi hermano ecfisa, que siempre me ayuda.

gracias caro y cloayza.

Nota: deben explicarme que significa el uso de etiquetas no se que, es para no volver a comerter el error y que todos nos cumuniquemos mejor.

gracias amigos.

[ecfisa]

Hola Agustín.

No te preocupes que a mí el tema de las etiquetas también me trajo mal un rato largo...

Mirá lo de las etiquetas es así:

Tenés que poner entre corchetes determinada palabra por ejemplo, si el código que vas a poner es de Delphi seria:
"["delphi"]"
Aca pones todo el código
que queres que
aparezca identado y resaltado
"["/delphi"]"

Nota: Las comillas no van, pero debo ponerlas por que si no no aparecería la estructura del funcionamiento
de las etiquetas sino esto:

Código Delphi [-]
   Aca pones todo el código
   que queres que
   aparezca identado y resaltado

De todos modos yo uso "code" por que "delphi" suele hacerme líos despues de la vista previa...

Las diferentes etiquetas que podés usar: delphi,code,sql, ... y su resultado lo podés ver en: http://www.clubdelphi.com/foros/showthread.php?t=10004
Para probar el resultado usá el botón Vista previa de mensaje.

Saludos.

[agustin173]

ok entendi gracias ecfisa tratare en la proxima de aplicarlo.

[[Lepe]]

ecfisa, hay unas etiquetas llamadas "noparse" para estos casos, escribe lo siguiente:

[noparse]
[delphi]

tu codigo aqui

[/delphi]

[/noparse]

Yo he tenido que añadir otras etiquetas noparse adicional para que puedas ver el mensaje

Són útiles también para evitar emoticones en cadenas sql o código delphi.

[ecfisa]

Muchas gracias Lepe

Desconocía esa etiqueta


Saludos.