Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Formulario Activo? (https://www.clubdelphi.com/foros/showthread.php?t=3767)

buitrago 19-09-2003 01:49:52

Formulario Activo?
 
Hola.

Cómo saber si el formulario que quiero "levantar" ya lo está.

Gracias

delphi.com.ar 19-09-2003 02:03:16

El Formulario activo es Screen.ActiveForm, si vos querés saber si un formulario de una X clase ya ha sido creado, si siempre lo asignas a la misma variable puedes preguntar si esta esta cargada, y limpiarla al cerrar el formulario.
Código:

if not Assigned(Form1) then
  From1 := TForm1.Create(Self);

Código:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Form1 := Nil;
end;

O si no lo asignas a ninguna variable, bien puedes recorrer la lista de formularios creados:
[code]
for i := 0 to Screen.FormCount -1 do
if Screen.Forms[i] is TMiForm Then
begin
Break;
end;
[code]

Saludos!


La franja horaria es GMT +2. Ahora son las 13:11:45.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi