Ver Mensaje Individual
  #4  
Antiguo 21-04-2005
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Hola,
creo que sería más eficiente que definieses un método público (supongo) en frmArchivos para asignar esos valores a las propiedades Left y Top , con lo que evitarías un uses a FrmPowerM en frmArchivos.

Ejp:
Código Delphi [-]
procedure TFrmArchivos.Posicion_en_Pantalla(Izq, Alto : Integer);
begin
  Self.Left := Izq;
  Self.Top := Alto;
end;

......
......

 procedure TFrmPowerM.FormShow(Sender: TObject);
 var varform:TFrmArchivos;
 begin
    varform := TFrmArchivos.Create(FrmPowerM);
    try
// Despues de crear el formulario, lo colocamos en pantalla.
      varform.Posicion_en_Pantalla(Self.Left + Self.Width, Self.Top);
{
De forma directa tambien puedes colocar ese formulario:
      varform.Left := Self.Left + Self.Width;
      varform.Top := Self.Top;
}
      varform.ShowModal;
    finally
      varform.Free;
      FrmPowerM.SetFocus;
    end;
 end;

Salu2.
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita