FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Formulario Activo?
Hola.
Cómo saber si el formulario que quiero "levantar" ya lo está. Gracias |
#2
|
||||
|
||||
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; [code] for i := 0 to Screen.FormCount -1 do if Screen.Forms[i] is TMiForm Then begin Break; end; [code] Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|