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,

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