Ver Mensaje Individual
  #1  
Antiguo 04-10-2008
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Reputación: 22
FGarcia Va por buen camino
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!!
__________________
ESTO ES UN FORO ... NO UN MÓVIL
¿Por qué no escribir de una manera comprensible para que los humanos lo podamos entender?

Última edición por FGarcia fecha: 04-10-2008 a las 18:21:39.
Responder Con Cita