Hola,
Se me ha ocurrido algo así después de un rato dándole vueltas:
Código Delphi
[-]
function HasShowingFormsInScreen
(alsoMainForm:boolean=false):boolean;
var
i: integer;
begin
Result := false;
for i:=0 to Screen.FormCount-1 do
begin
if Result then
Exit;
if Screen.Forms[i].Showing then
begin
with Screen, Application do
begin
if (Forms[i] = MainForm) then
Result := alsoMainForm
else
begin
Result := true;
Exit;
end;
end;
end;
end;
end;
Por cierto, gracias a Marcos y a
freelance, quienes me han ayudado. A Marcos porque no recordaba la variable "FormCount" del objeto "Screen", y, a
freelance, porque me picó a comprobar que la función de más arriba parece funcionar tanto en aplicaciones MDI (Multiple Document Interface) como SDI (Single Document Interface).
Por cierto, una posible forma de hacer uso de la función anterior, siguiendo lo que dice
freelance de utilizar el evento "OnCloseQuery" del formulario principal de la aplicación:
Código Delphi
[-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if HasShowingFormsInScreen then
begin
ShowMessage('¡Cierra las ventanas que hace frío! ;-)');
CanClose := false;
end;
end;