Ver Mensaje Individual
  #8  
Antiguo 08-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
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 ramonibk.

No entiendo cuál es el problema ahora, pero tomando en cuenta lo que mencionas en el primer mensaje:
Cita:
La cosa es como puedo hacer para que en caso de que el form se encuentra abierto.
Bien lo maximice si se encuentra minimizado
Bien lo pase a primer plano si se encontrara en segundo plano.
Y viendo que en el código del mensaje #4 intentas la creación sin lograrlo, creo que con este procedimiento vas a dar solución al problema:
Código Delphi [-]
...
(* Crear MDIChild  *)
procedure TForm1.AbrirMDIChild(AClass: TFormClass);
var
  i: Integer;
begin
  for i:= MDIChildCount-1 downto 0 do
    if MDIChildren[i] is AClass then //  ¿ Se encontro ?
    begin
      if MDIChildren[i].WindowState = wsMinimized then // Si, ¿ Minimizado ?
        MDIChildren[i].WindowState:= wsMaximized;  // => Maximizar
      MDIChildren[i].BringToFront;  // traer al frente
      Exit; // nada mas que hacer aquí...
    end;
   with AClass.Create(Self) do // no se encontró => Crearlo
    BringToFront; // traer al frente
end;

(* Ejemplo de llamada *)
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  AbrirMDIChild(TMDIChild1);
end;

Saludos.
__________________
Daniel Didriksen

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