Ver Mensaje Individual
  #1  
Antiguo 29-06-2006
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: May 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Este truco sirve para cualquier tipo de formularios (MDI, SDI)

Código Delphi [-]
function TFormPpal.IsLoaded(Nombre: string): Boolean;
var b: boolean;
    i: integer;
begin
b := false;
for i := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].Name = Nombre then
       b := true;
IsLoaded := B;
end;

Nota: El código anterior es mejorable mediante un bucle while (nunca repeat)
Responder Con Cita