Foros Club Delphi - Manejo Creación de Componentes e Hilos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Lazarus, FreePascal, Kylix, etc. (https://www.clubdelphi.com/foros/forumdisplay.php?f=14)

- - Manejo Creación de Componentes e Hilos (https://www.clubdelphi.com/foros/showthread.php?t=73749)

Manejo Creación de Componentes e Hilos

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.

Código:

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

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:

Código Delphi [-] 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...

Gracias por tu respuestas, me sirvio mucho.