Ver Mensaje Individual
  #8  
Antiguo 28-08-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Cita:
Empezado por gluglu Ver Mensaje
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 ...
Responder Con Cita