Menu Ventanas - MDIChild

[[Lepe]]

El mdiform tiene en cuenta las ventanas hijas que se abren, así que al hacer clic en el menú "Windows" (el evento onclic de ese menú) haces un bucle que recorra todas las hijas.

el código sale más rápido que la explicación:

Código Delphi [-]
var mnu:TmenuItem;
for i:=0 to mdichildcount -1 do
begin 
   mnu := mnuWindows.Items.Add;
   mnu.Caption := mdichildren[i].Caption
   mnu.tag := i; // para saber el que se pulsó.
  mnu.onclick := miRutina;
end;


procedure TForm1.miRutina(sender:tobject);
begin
   mdichildren[TmenuItem(sender).tag]. BringtoFront;
  mnuWindows.items.Clear;
end;

Saludos