Ver Mensaje Individual
  #6  
Antiguo 10-10-2005
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 24
maeyanes Va por buen camino
Tienes varias opciones, aquí te doy unas:

1. Agregar la unidad del formulario N1 a la claúsula uses del formulario padre:
Código Delphi [-]
implementation

uses { Lista de unidades... }, N1Unit;
ya con esto puedes hacer lo que te indican arriba:
Código Delphi [-]
if Assigned(N1) then
  // ...

2. Crear procedimientos o propiedades en el formulario N2 que permitan al formulario padre saber si ya está creado N1:
Código Delphi [-]
TN2 = class(TForm)
private
  //...
protected
  //...
public
  function IsN1Created: Boolean;
  procedure SetFileNameN1(const AFileName: string);
end;

implementation

uses N1Unit;

function TN2.IsN1Created: Boolean;
begin
  Result := Assigned(N1)
end;

procedure TN2.SetFileNameN1(const AFileName: string);
begin
  if IsN1Created then
    N1.Labe1.Caption := AFileName
end;
y desde el formulario padre:
Código Delphi [-]
begin
  if N2.IsN1Created then
    N2.SetFileNameN1(FileBox1.FileName);
  //...
end;

Espero que algo de esto te sirva...



Saludos...
Responder Con Cita