Como saber si un Formulario ha sido creado

[Durbed]

Necesito saber si dentro de mi aplicacion MDI, hay un formulario en concreto creado.

Gracias

[vtdeleon]

Saludos

Prueba con:
If Assigned(form) then
.....

[Durbed]

Eso no me funciona, a ver si me explico mejor: El formulario hijo que necesito saber si ha sido creado, lo creo desde otra ventana hija, pero la comprobacion la necesito hacer desde el formulario madre.

Gracias

[vtdeleon]

Saludos

Ahora no entendí.

Si llamas al formulario hijo desde otro similar, cómo piensas comprobarlo con el padre??? Con un Timer??

Realmetne no entiendo

[Durbed]

La cuestion es que el formulario hijo N1 lo creo desde el formulario hijo N2. Pero ahora he puesto un componente que visualiza los ficheros de un directorio, ese componente esta puesto sobre el fondo del formulario Padre, y quiero que al picar sobre un archivo de dicho componente, mire si el form N1 esta creado y en ese caso capturar el nombre del fichero.

Por eso necesito saber desde el Form Padre si el Form N1 esta creado. Si sirve de algo, el Form N2 siempre esta creado y no se puede cerrar, es decir que siempre existe mientras dure la ejecucion de la aplicacion.

Gracias de nuevo.

[[maeyanes]]

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...