Modificar el tamaño y posicion de un TreeView

[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?

[[coso]]

no, esto es solo para liberar el array de manera segura, para nada mas

[[coso]]

el formclose se declara en el evento OnClose del form