Crear Componentes en tiempo de ejecucion

[fartycl]

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

[roman]

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

[fartycl]

Gracias
Me va a servir bastante

[celades1]

Hola
mira esto


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