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; mnu.onclick := miRutina;
end;
procedure TForm1.miRutina(sender:tobject);
begin
mdichildren[TmenuItem(sender).tag]. BringtoFront;
mnuWindows.items.Clear;
end;
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Última edición por Lepe fecha: 08-02-2008 a las 22:44:16.
|