Ver Mensaje Individual
  #1  
Antiguo 07-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Averiguar si un formulario se muestra como "modal"

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

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