Delphi - Intercambio de foco en las ventanas

Hola:

Estoy haciendo una aplicación que interactua sobre otras y necesito saber como puedo intercambiar el foco de las subventanas de esa aplicación en la que se interactua.

La función que empleo es la siguiente:

function cambia_foco(nombre_ventana:string):string;
begin
h := FindWindow(nil, pchar(nombre_ventana1));
if h <> 0 then setforegroundwindow(h)
else
begin
Showmessage('No se ha localizado la ventana '+nombre_ventana);
halt;
end;
end;

Esta función funciona perfectamente, el problema es que soy incapaz de cambiar el foco de las subventanas de la aplicación en la que se interactua, es decir, la aplicación en la que se interactua dispone de varias subventanas y no es posible commutar el foco entre ellas.

Un saludo y gracias.

Puedes utilizar la función del API de Windows EnumChildWindows para buscar la ventana hija y una vez encontrada utiliza la función SetActiveWindow para activarla.