Crear Componentes en tiempo de ejecucion
 

yo denuevo

Saben necesito crear un componente TButton dentro de un Tpanel en tiempo de ejecucion y darle su posicion y to dentro del panel


de antemano gracias


Disculpen por molestar
pero dicen que el que no sabe y no pregunta es un tonto
pero el que no sabe y pregunta es muxo mas inteligente

Código Delphi [-]
var
  Button: TButton;

begin
  Button := TButton.Create(Self); // lo creas
  Button.Left := 84;              // lo posicionas
  Button.Top := 48;           
  Button.Parent := Panel;         // lo insertas en el panel
end;

// Saludos

Gracias
Me va a servir bastante

Hola
mira esto

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
  PROCEDURE BUTO_APRETAT(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
VAR BUTO:TButton ;
begin
    BUTO:=TButton.CREATE(SELF) ;
    BUTO.Parent:=PANEL1;
    BUTO.Top:=2;
    BUTO.Left:=4;
    BUTO.CAPTION:='BAGA';
    BUTO.OnClick:= BUTO_APRETAT;
end;
 
 
PROCEDURE TForm1.BUTO_APRETAT(Sender: TObject);
BEGIN
TBUTTON(SENDER).Caption:='APRETAT';
END;

Saludos