Cita:
Empezado por gluglu
Por lo tanto, en mi menú principal de la aplicación, dicho Form aparece como si estuviera 'activo'.
|
Como compruebas si el form esta activo, supongo que así:
Código Delphi
[-]
if FormMain <> nil then
... etc
Prueba con esto:
Código Delphi
[-]
function Existe(F: TForm): Boolean;
var
i: integer;
begin
for i:= 0 to Screen.FormCount - 1 Do
if Screen.Forms[i] = F then
begin
Result:= TRUE;
Exit;
end;
Result:= FALSE;
end;
if Existe(FormMain) then
etc ...