Como abortar correctamente un proceso que es interrumpido por el cierre del Form

[[seoane]]

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 ...

[[gluglu]]

Pues si, Domingo. Sería otra forma de comprobarlo.

Yo lo tengo así :

Código Delphi [-]
procedure TMainform.FormLoQueSeaClick(Sender: TObject);
begin
  If not Assigned(FormLoQueSea) then begin
    Screen.Cursor := crHourGlass;
    FormLoQueSea := TFormLoQueSea.Create(Self);
    Screen.Cursor := crDefault;
  end;
  FormLoQueSea.Show;
  if FormLoQueSea.WindowState = wsMinimized then
    FormLoQueSea.WindowState := wsNormal;
end;

Especifico que se trata de una aplicación MDI.