Manejo Creación de Componentes e Hilos

[rogeriobeltran]

Buenas:
En la actualidad se esta desarrollando un simulación en donde creamos componentes, en nuestro caso TPanel, mediante el hilo se van creando y se almacenan en un TObjectList, y deja de crear al momento de parar el hilo. El inconveniente que tenemos es como editar el componente almacenado en el TObjectList para poder cambiarle propiedades, en nuestra simulación es realizar movimiento, como el top, left. Utilizamos los siguientes comandos pero no nos edita.
Procedure TReloj.MoverPaquetes;
var i:integer;
Objeto:TObject;
Panel:TPanel;
begin
for i :=0 to FSimulacion.listaPaquetes.Count-1 do
begin
Objeto:=FSimulacion.listaPaquetes.Items[i];
if Objeto is TPanel
then Panel := Objeto;

// ShowMessage(Objeto.ClassName) ;
//Objeto.Top:=PanelMover.Top+20;
end;
end;


de antemano gracias por la colaboración

[ecfisa]

Hola.

Si no te entendí mál, el problema es que no podés acceder a las propiedades de los objetos almacenados en el TObjectList, una forma sería:

if FObjLst.Items[0] is TPanel then
TPanel(FObjLst.Items[0]).Top:= 50;



Saludos.

Edito: Perdón rogeriobeltran, no reparé que el hilo estaba en Lazarus, el ejemplo es para Delphi.
Tendrías que probar si el cast TPanel(...).Propiedad funciona en en Lazarus...

[rogeriobeltran]

Gracias por tu respuestas, me sirvio mucho.