Saber si una Form es modal

[Delfino]

Pongo lo siguiente para saber si una form es modal:

if Screen.ActiveForm.FormState = fsModal then ....

me da el error 'incompatible types':

alguien tiene alguna idea???

[Lepe]

Prueba con Screen.ActiveForm.FormSTYLE = fsModal

;) SALUDOS

[Delfino]

en este caso casi el mismo error (incompatible types : tformstyle and enumerated)

Nadie tiene una idea para saber si una form esta modal o no?

[dec]

Hola,


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