Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   problemas con los fsMDIChild... (https://www.clubdelphi.com/foros/showthread.php?t=31144)

Er_Manué 28-04-2006 20:23:25

problemas con los fsMDIChild...
 
Hola,

Estoy haciendo una aplicación MDI, con un formulario mdi, varios child y un par normal. El problema que tengo es que quiero que cada vez que se cree una ventana child se me añada automáticamente al menú principal, dentro de ventana...

Tengo incluido un TActionList con las acciones estandars para las ventanas: cascade,arrange,etc... pero no consigo que se incluya automáticamente las nuevas ventanas... :(

Asi es como creo las ventanas child, (hay múltiples clases child):
Código Delphi [-]
var
  aux : integer;
begin
  aux := buscaClaseFormulario('TfListadoArticulos');
  if aux = -1 then TfListadoArticulos.Create(Application)
  else self.MDIChildren[aux].Show();
end;

¿ Qué es lo que estoy haciendo mal ? ...o simplemente no estoy haciendo ¿?

Salu2

Lepe 28-04-2006 22:17:53

La propia ventana MDI guarda un listado de todas las ventanas hijas que hay creadas, así que nos ahorramoos buscarlas.

Automáticamente no se añaden, tienes que añadirlas tú.

Código Delphi [-]
var
  I: Integer;
begin
  with frmMdi do
    for I := MDIChildCount-1 downto 0 do
    begin
      NombreVentana := MDIChildren[i].Caption
      ClaseVentana := MDIChildren[i].ClassName;
    end;
end;

saludos

luisgutierrezb 29-04-2006 01:07:13

casi estoy seguro que tu error es este:

TfListadoArticulos.Create(Application)

para que te las pueda reconocer, la mdichild debe ser descendiente de de la mdiform, asi que debes crearla asi:

TfListadoArticulos.Create(self)

en caso de que la forma donde la creas sea la mdiform

Er_Manué 02-05-2006 17:00:43

ya sé cual era el fallo... me faltaba asiganar la propiedad windowMenu del formulario mdi principal :p

asias ;)


La franja horaria es GMT +2. Ahora son las 07:27:27.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi