delphi - usuario - ¿Cómo creo un control personalizado con un subpanel que acepta otros controles en designtime?

crear textbox en tiempo de ejecucion c#

Question

Esta pregunta ya tiene una respuesta aquí:

• Permitir que los componentes caídos en mi control en el IDE se conviertan en hijos de mi control 1 respuesta

He escrito un control personalizado, que tiene varios paneles secundarios. Quiero que estos subpaneles acepten cualquier control adicional que se les deje caer en el momento del diseño.

Lamentablemente, cualquier control que se descarta en el momento del diseño termina en mi control personalizado, no en los paneles. Esto muestra, en particular, si trato de soltar una etiqueta: se muestran los puntos azules de la etiqueta, pero su leyenda no aparece y, si anulo la selección de la etiqueta, ya no estará visible.

código simplificado (solo un sub panel):

type
TMyContainer = class(TPanel)
p_SubPanel: TPanel;
public
constructor Create(_Owner: TComponent); override;
end;
constructor TMyContainer.Create(_Owner: TComponent);
begin
inherited;
p_SubPanel := TPanel.Create(Self);
p_SubPanel.Parent := Self;
p_SubPanel.Align := alClient;
end;

¿Qué estoy haciendo mal aquí?

(Por si acaso importa: estoy usando Delphi 2007)

[editar]

Ahora lo he resuelto de manera diferente. El componente ya no contiene paneles sino que se refiere a paneles externos. Esto lo hace mucho más flexible, pero a la baja ya no es tan intuitivo de usar.

Todavía me gustaría saber cómo lograr lo que describí originalmente. ¿Hay algún componente de código abierto en alguna parte que lo haga así que puedo estudiar el código fuente?

Answer 1

No puedo decir por los detalles, pero ¿estás configurando el padre de la etiqueta para tu subpanel? Si es en el momento del diseño, es posible que deba escribir código en su componente principal (por ejemplo, el contenedor en el que se encuentran sus paneles), para determinar qué subpanel acepta el componente y establecer las propiedades padre de las etiquetas en ese subpanel.

Estoy bastante seguro de que se llama al método de notificación cuando se agrega o quita un componente de otro componente, esto debería ayudarlo a localizar dónde debe colocar el código.

Answer 2

Esta es una buena pregunta. Puede permitir que su TWinControl personalizado tenga otros controles en él en tiempo de diseño agregando csAcceptControls a su propiedad ControlStyle de controles.

constructor TMyContainer.Create(AOwner: TComponent);
begin
inherited;
ControlStyle := ControlStyle + [csAcceptControls];
end;

Pero al tratar de resolver esto, tuve poco éxito al poder dejar los controles en un subpanel dentro de un control personalizado. Agregar csAcceptControls al ControlStyle de un subpanel no es suficiente. Lo peor que he recibido es un truco para convencer al sub panel de que está siendo diseñado así:

type
TGiveMeProtected_Component = class(TComponent);
procedure TMyContainer.Create(AOwner: TComponent);
begin
FSubPanel := TPanel.Create(Self);
TGiveMeProtected_Component(FSubPanel).SetDesigning(True, True);
end;

Al usar ese código, ahora puede colocar controles en el panel secundario, pero significa que también puede seleccionar el panel secundario, cambiar sus propiedades e incluso eliminarlo que definitivamente no desea. Lamento no poder encontrar la respuesta, aún me gustaría saber si lo resuelves. :)

Answer 3

Hice esto, pero terminé reemplazando los controles con paneles regulares que se mostrarían / ​​ocultarían cuando fuera necesario.

En lugar de descender de TPanel, mis controles descienden de TCustomControl. No creo que pueda hacer que funcione desde TPanel, pero no recuerdo cuál fue el problema.

El control del contenedor:

TPageControl = class(TCustomControl)
private
PageList:TObjectList; // To hold references to all sub-pages for easy access.
end;
constructor TPageControl.Create(AOwner: TComponent);
begin
inherited;
ControlStyle := ControlStyle + [csAcceptsControls];
PageList := TObjectList.Create;
PageList.OwnsObjects := false;
end;
destructor TVstPageControl.Destroy;
begin
PageList.Free;
inherited;
end;
procedure TPageControl.NewPage;
var
Page:TPage;
begin
Page := TPage.Create(Self.Owner);
Page.Parent := Self;
Page.Align := alClient;
PageList.Add(Page);
end;
procedure TPageControl.DeletePage(Index:integer);
var
Page:TPage;
begin
Page := PageList[Index] as TPage;
Page.Free;
PageList.Delete(Index);
end;

El control de página / subpanel:

TVstPage = class(TCustomControl)
public
constructor Create(AOwner: TComponent); override;
end;
constructor TPage.Create(AOwner: TComponent);
begin
inherited;
ControlStyle := ControlStyle + [csAcceptsControls];
end;