Ver Mensaje Individual
  #2  
Antiguo 06-02-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 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 tempto.

El evento que se dispara cuando se está creando es OnCreate del propio MDIChild, pero también podes darle la posición y el tamaño desde la creación en el MDIForm:

Código Delphi [-]
...
uses Unit2;

{ Crear o mostrar Childs }
procedure TForm1.MostrarChild(AFormClass: TFormClass);
var
  i: integer;
begin
  for i:= 0 to MDIChildCount - 1 do  // Buscar si esta creada
   if Screen.Forms[i] is AFormClass then
     with Screen.Forms[i] do
     begin
       if WindowState = wsMinimized then  // Si esta minimizada, estilo normal
          WindowState:= wsNormal;         
       Screen.Forms[i].BringToFront; // Al frente
       Exit;
     end;
  // Crearla, dar valores iniciales
  with AFormClass.Create(Application) do
  begin
    Left:= 1; 
    Top:= 1;
    Height:= 250; 
    Width:= 300;
    Show;
  end;
end;

Ejemplo de llamada:
Código Delphi [-]
...
begin
  MostrarChild(TForm2);
end;

Un saludo.
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 06-02-2011 a las 21:34:48.
Responder Con Cita