Ver Mensaje Individual
  #18  
Antiguo 13-06-2006
chalitox chalitox is offline
Registrado
 
Registrado: jun 2006
Posts: 7
Reputación: 0
chalitox Va por buen camino
Unhappy

Que tal, mi intervencion no es para aclarar, sino para oscurecer

Yo necesito agregar a un contenedor (TForm, TPanel, etc) otros componentes instanciados por mi en tiempo de ejecución. Intente con InsertComponent() pero no aparece el componente.
Este es el codigo que estoy usando:
Código Delphi [-]
procedure TForm1.JvXPButton1Click(Sender: TObject);
var
     unShape: TJvShape;
begin
   unShape := TJvShape.Create(Form1);
   unShape.Shape := stCircle;
   unShape.SetBounds(20,30,100,100);
   unShape.Visible := True;

    // una lista (TList) para retener las referencias
   shapeList.Add(unShape);

   Form1.InsertComponent(unShape);
   Form1.Refresh;
end;

Epero haber sido claro
muchas gracias
Ramiro

Última edición por chalitox fecha: 13-06-2006 a las 18:58:12.
Responder Con Cita