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
22-10-2004
Modo Hilado