crear varios form al iniciar la aplicacion

[[FGarcia]]

Hola!

Al iniciar delphi 7 (no conozco versiones anteriores) se activa la ventana principal que contiene a los componentes, ademas se activan la ventana del inspector de objetos y la ventana del Object TreeView (bueno al menos en el mio) ¿eso como se hace? ¿En el evento OnCreate del form principal se crean los otros forms? Estuve buscando por "Dock", "Acoplable" pero no encontre una respuesta para lo que quiero. Se agradece la ayuda

[[egostar]]

Hola

Puedes usar Form2.Show en el evento OnShow del Form1

Ademas de indicar como y donde quieres que se vean, por ejemplo Form1.Align = alTop y Form2.Align = alLeft

Salud OS

[[FGarcia]]

Gracias por la respuesta de hecho asi lo resolvi, ahora me gustaria saber como hacer que si la ventana principal se mueve entonces la ventana secundaria se mueva con ella jaja ando medio zafado!!

Editando solo para dejar la constancia:

En el form principal en su evento OnShow:

Código Delphi [-]
//"Simulo" hacer click en el item de menu miGrafica
miGrafica.Click ;

En el ActionList se ejecuta esta accion al hacer click en el item de menu miGrafica. Verifico si ya existe el form frmPlot, si existe y esta minimizado
lo regreso a su tamaño normal y lo traigo al frente, en caso de no existir lo creo.

Código Delphi [-]
{ActionList1 OpenPlot}
procedure TfrmVistaPrincipal.OpenPlotExecute(Sender: TObject);
begin
  if Assigned (frmPlot) then
    begin
      if frmPlot.WindowState = wsMinimized then
        frmPlot.WindowState := wsNormal;
      frmPlot.BringToFront;
    end
  else
    frmPlot := TfrmPlot.Create (Application);
  frmPlot.Show;
end;

En el form frmPlot en su evento OnClose y OnCreate

Código Delphi [-]
procedure TfrmPlot.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmPlot := nil;
end;

procedure TfrmPlot.FormCreate(Sender: TObject);
begin
  Top := frmVistaPrincipal.Top + frmVistaPrincipal.Height + 1;
  Left := frmVistaPrincipal.Left ;
end;

Como siempre quedo abierto a sugerencias para mejorar el codigo.

Saludos!!

[*Caro*]

Empezado por FGarcia

ahora me gustaria saber como hacer que si la ventana principal se mueve entonces la ventana secundaria se mueva con ella

Hola FGarcia, para hacer que tu ventana secundaría se mueva cuando se mueve la principal puedes capturar el mensaje y preguntar si es SW_MOVE.

Código Delphi [-]
  procedure SYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
................
................
procedure TForm1.SYSCOMMAND(var Msg: TMessage);
begin
 Inherited;
 if (Msg.WParam and $FFF0)= SC_MOVE then
  begin
   Form2.Left := Self.Left;
   Form2.Top := Self.Top + Self.Height;
  end
end;

Ahí mismo puedes preguntar si la secundaría estaría minimizada, si es así lo restauras

Saluditos

[*Caro*]

Hola de nuevo, creo que sería mejor capturar directamente el mensaje WM_MOVE, ya que de la forma que puse, tarda un poco en moverse la ventana secundaria, prueba este ejemplo que puso el amigo Roman http://www.clubdelphi.com/foros/show...75&postcount=2

Saluditos

[[FGarcia]]

Gracias por la respuesta Caro. No he tenido oportunidad de trabajar en eso pero en la primera oportunidad lo hago y comentare los resultados.