Modificar el tamaño y posicion de un TreeView

[cslbcn]

One moment.
Dije que no cambia el tamaño, no es exactamente esto, cambiando solo el anho y alto o el top y el left, me cambia las propiedades del Form1, no del treeview...

[[coso]]

igualmente, tu codigo no estaba mal, solo que en vez de destruir y volver a crear, podias asignarlo a una variable y alla tratarlo

Código Delphi [-]
procedure TForm1.TreeViewAmpliar(Sender: TObject);
var 
    t : TTreeview;
begin
   t := (Form1.findcomponent((sender as TTreeview).Name) as TTreeview);
   
   with t do
   begin
      Top    := 100;
      Left   := 100;
      Height := 500;
      Width  := 500;
   end;
end;

aunque, con el sender, es innecesario

[cslbcn]

mmm. no lo entiendo. Tal y como tengo escrito mi código no hay alguna forma mas sencilla de modificar los atributos. Como digo, si solo pongo:

Código Delphi [-]
procedure TForm1.TreeViewAmpliar(Sender: TObject);
begin
    Top    := 100;
    Left   := 100;
    Height := 500;
    Width  := 500;
end;

Me cambia los atributos del Form1. Si solo quiero que me los cambio de Treeview seleccionado?

[[coso]]

debes usar el sender como ttreeview,

Código Delphi [-]
procedure TForm1.TreeViewAmpliar(Sender: TObject);
begin    
(sender as TTreeview).Top    := 100;    
(sender as TTreeview).Left   := 100;    
(sender as TTreeview).Height := 500;    
(sender as TTreeview).Width  := 500;
end;

antes, lo que estabas cambiando era las propiedades de 'self', o sea, de la form1

[cslbcn]

Vale, funciona, aunque de una manera muy extraña...

El nuevo treeview se coloca detrás de todos los treeview y los treeviews "antiguos" no vuelven a aparecer

[[coso]]

deberas colocar tambien el 'bringtofront', para dibujarlo delante de los otros componentes.luego deberas usar una funcion para restaurar el tamaño original...echa un vistazo al codigo que te he puesto arriba, que ya estaba puesto esto. saludos

[cslbcn]

con esto?

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
        i : integer;
const
        diasdelmes : integer = 30;
begin
        for i := 0 to diasdelmes - 1 do
                treeviews[i].free;

        setlength(treeviews,0);
end;

imagino que si, pero, donde y como declaro el FormClose?