Averiguar si un formulario se muestra como "modal"

[dec]

Con la siguiente función averiguamos si el formulario pasado como parámetro se está mostrando "modalmente" o no:


function EsFormModal(frm: TCustomForm) : boolean;
begin
Result := false;
if Assigned(frm) then
Result := (fsModal in frm.FormState);
end;