Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-07-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Poder: 14
agustin173 Va por buen camino
Unir Formularios

Saludos a todos los del foro

Muchachos como puedo hacer que el formulario principal que es un MDI cuando lo minimize lo hagan todos los demas formularios,

Los demas formularios no son MDIHijos, son formularios normales 'stapontop'

como los puedo enlazar para que cuando minimize el mdi se minizen tambien los demas.
Responder Con Cita
  #2  
Antiguo 15-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola agustin.

Pienso que podrías hacer así:
Código:
procedure TForm1.MinimizarTodo;
var
  i: Integer;
begin
  with Application do
    for i:= 0 to ComponentCount -1 do
      if (Components[i] is TForm) then
        Minimize;
end;
O, en lugar de Minimize, también:
Código:
   SendMessage(TForm(Components[i]).Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 15-07-2010 a las 04:30:51.
Responder Con Cita
  #3  
Antiguo 15-07-2010
urrutia_206 urrutia_206 is offline
Registrado
 
Registrado: jul 2010
Posts: 2
Poder: 0
urrutia_206 Va por buen camino
necesita ayuda

hola alguien de ustedes me puede ayudar en un programa que tengo que hacer en consol application? con ciclos?
Responder Con Cita
  #4  
Antiguo 15-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola urrutia y bienvenido.

Te aconsejo crear un nuevo hilo (o tema) con tu cuestión, así todos podrán verlo y contestarte.

¿ Podriás especificar un poco más ?

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #5  
Antiguo 15-07-2010
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por urrutia_206 Ver Mensaje
hola alguien de ustedes me puede ayudar en un programa que tengo que hacer en consol application? con ciclos?
Antes de nada, te recomiendo que leas la Guía de estilo.
Una vez la hayas leído, abre un nuevo hilo y plantea tu pregunta explicando con detalle el problema. No te olvides de asignar al hilo un mensaje coherente con lo que te pasa.

Un saludo.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #6  
Antiguo 15-07-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Poder: 14
agustin173 Va por buen camino
unir formularios

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.
Responder Con Cita
  #7  
Antiguo 15-07-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Poder: 14
agustin173 Va por buen camino
unir formularios

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.
Responder Con Cita
  #8  
Antiguo 15-07-2010
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 910
Poder: 22
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
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
Responder Con Cita
  #9  
Antiguo 15-07-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #10  
Antiguo 15-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por agustin173 Ver Mensaje
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 15-07-2010 a las 21:22:22.
Responder Con Cita
  #11  
Antiguo 16-07-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Poder: 14
agustin173 Va por buen camino
unir formularios

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.
Responder Con Cita
  #12  
Antiguo 16-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 16-07-2010 a las 07:13:45.
Responder Con Cita
  #13  
Antiguo 16-07-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Poder: 14
agustin173 Va por buen camino
unir formularios

ok entendi gracias ecfisa tratare en la proxima de aplicarlo.
Responder Con Cita
  #14  
Antiguo 16-07-2010
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
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.
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #15  
Antiguo 16-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Muchas gracias Lepe

Desconocía esa etiqueta


Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #16  
Antiguo 17-07-2010
urrutia_206 urrutia_206 is offline
Registrado
 
Registrado: jul 2010
Posts: 2
Poder: 0
urrutia_206 Va por buen camino
Thumbs down necesita ayuda

Cita:
Empezado por urrutia_206 Ver Mensaje
hola alguien de ustedes me puede ayudar en un programa que tengo que hacer en consol application? con ciclos?
Cita:
Empezado por ecfisa Ver Mensaje
Hola urrutia y bienvenido.

Te aconsejo crear un nuevo hilo (o tema) con tu cuestión, así todos podrán verlo y contestarte.

¿ Podriás especificar un poco más ?

Saludos.
me pueden ayudar a hacer este programa>?

Sen(x)= x – x elevado a Y
y

Deberá hacer un ciclo que resuelva la potencia.
Deberá hacer un ciclo que resuelva el factorial del mismo número.
El valor de x puede ser cualquier número (par o impar).
El valor de y debe ser un número impar(validar que no sea par).
El valor de la potencia es el mismo número del factorial.


por favor me pueden ayudar en este programa que me urge hacerlo y no tengo quien me ayude.
Responder Con Cita
  #17  
Antiguo 20-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola urutia.

Veo no llevas mucho tiempo en el foro, te aconsejo crear un
nuevo hilo con el tus inquietudes, si no es muy probable que queden sin respuesta .

Bueno a ver...

Primero funciones: Potencia y Factorial. (usando ciclos)
Código:
function Potencia(x: Single; y:Integer): Double;
begin
  Result:= 1;
  while y > 0 do
  begin
    Result := Result * x;
    Dec(y);
  end;
end;
 
function Factorial(Num: Integer): LongInt;
begin
  Result:= 1;
  while Num > 1 do
  begin
    Result:= Result * Num;
    Dec(Num);
  end;
end;
Para verificar si es número:
Código:
function EsNumero(Valor: string): Boolean;
var
  n,cd: Integer;
begin
  Val(Valor, n, cd);
  Result:= cd = 0;
end;
Por último verificar a la salida de los TEdit's:
Código:
procedure TForm1.EditXExit(Sender: TObject);
begin
  if not EsNumero(EditX.Text) then
  begin
    ShowMessage('Número inválido');
    EditX.SetFocus;
  end;
end;
 
procedure TForm1.EditYExit(Sender: TObject);
begin
  if not EsNumero(EditY.Text) then
  begin
    ShowMessage('Número inválido');
    EditY.SetFocus;
    Exit;
  end;
  if not Odd(StrToInt(EditY.Text) then
  begin
    ShowMessage('Ingrese un número impar');
    EditY.SetFocus;
  end;
end;
Ejemplo de llamada:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
Pot: Double;
Fac: Longint;
begin
Pot:= Potencia(StrToFloat(EditX.Text),StrToInt(EditY.Text));
Fac:= Factorial(StrToInt(EditY.Text));
ShowMessage(FloatToStr(Pot)+' '+IntToStr(Fac));
end;
Con eso tenés las herramientas para solucionar el problema.

Nota: Como imagino que los valores de x e y son ingresados puse dos TEdit's para ello: EditX y EditY.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 20-07-2010 a las 07:08:34.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Unir dos pdf nelem Internet 4 11-02-2009 15:03:07
Unir imagenes jpg alain Gráficos 6 09-04-2008 23:10:29
Unir tres qry alcides SQL 6 11-07-2005 18:34:33
Unir Columnas vtdeleon SQL 4 15-06-2005 01:34:49
unir db grids piyugo Varios 3 30-08-2004 00:54:50


La franja horaria es GMT +2. Ahora son las 07:31:35.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi