[dec]

Hola,

Código Delphi [-]
 function EsFormModal(frm: TCustomForm) : boolean;
 begin
   Result := false;
   if Assigned(frm) then
     Result := (fsModal in frm.FormState);
 end;