Hola.
He creado (o estoy intentando crear) un componente en DELPHI con dos paneles.
Código Delphi
[-]
published
property Panel1 : TPanel read FPanel1;
property Panel2 : TPanel read FPanel2;
property Split : TSplitter read FSplit;
property ModoSplit : TPanelModoSplit read GetModoSplit write SetModoSplit default pmsHorizontal;
end;
constructor TPanelSplit.create(Aowner : TComponent);
begin
inherited;
ShowCaption := false;
caption := '';
FPanel1 := TPanel.Create(self);
FPanel1.ShowCaption := false;
FPanel1.Name := self.Name+'_panel1';
FPanel2 := TPanel.Create(self);
FPanel2.ShowCaption := false;
FPanel2.Name := self.Name+'_panel2';
FSplit := TSplitter.Create(self);
FPanel1.Parent := self;
FPanel2.Parent := self;
FSplit.Parent := self;
FSplit.Width := 5;
FPanel2.Align := alClient;
ModoSplit := pmsHorizontal;
end;
Va muy bien.
El único problema es que cuando intento dejar caer objetos sobre UN panel concreto no me es posible, puesto que me selecciona el objeto Tpanelsplit creado.
Y no sobre el panel concreto sobre el que yo lo quiero crear.
Seguro que la solución es una chorrada, pero es algo que no he hecho nunca.
Llevo una hora mirando a ver si había algún componente así.
He estado mirando el pagecontrol que crea Tabs y luego cada taba es idependiente...pero creo que no me vale además de que no he conseguido averiguar como lo hacen.
Si pudieran ayudarme me sería de mucha utilidad.
Muchas gracias.
Un saludo.