Ver Mensaje Individual
  #4  
Antiguo 22-10-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Vamos a ver. Este hilo me daba flojera por el tipo de control usado. ¡Un TabbedNoteBook! Pero si eso usaba mi abuelito

Como no estés programando para Delphi 1.0 no encuentro razón a la vista para usar este tipo de controles obsoletos en lugar de un PageControl.

Pero bueno, en gustos se rompen géneros.

Para empezar no entiendo bien qué es lo que te propones. Hablas de un botón mediante el cual insertar nuevas páginas pero en el código que escribes lo que insertas es el botón. Por ningún lado aparece la nueva página ni mucho menos el Memo.

Por otro lado, suponiendo que deseas insertar el botón en una página del TabbedNoteBook entonces no puedes poner

Boton.Parent := Self;

ya que el padre del botón debe ser la página y no el formulario.

El problema es que hasta donde he revisado no encuentro que el TabbedNoteBook publique la lista de páginas- la propiedad Pages se refiere a los nombres de las páginas pero no a las páginas en sí.

Sin embargo la propiedad Controls del TabbedNoteBook contiene la lista de controles cuyo padre es el TabbedNoteBook y, al parecer, los únicos controles posibles son justamente las páginas (TTabPage) de manera que puedes asignar el Parent del botón así:

Boton.Parent := TWinControl(AbbedNoteBookEditor.Controls[Indice]);

// Saludos
Responder Con Cita