Ver la Versión Completa : Formulario Activo?
buitrago
19-09-2003, 01:49:52
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.
if not Assigned(Form1) then
From1 := TForm1.Create(Self);
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!
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.