Delphi - componentes dinamicos

   
Vista:

componentes dinamicos

Publicado por Ximena Fuertes (9 intervenciones) el 22/08/2008 15:00:00
Necesito ayuda, como puedo hacer para generar componentes en tiempo de ejecucion ej: al guardar datos de una persona en una tabla se cree un boton con su nombre y que pueda acceder a su informacion.

Nwecesito toda ayuda que me puedan dar..

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:componentes dinamicos

Publicado por Leandro (6 intervenciones) el 22/08/2008 23:21:53
Hola Ximena, acá te paso un ejemplo. es un formulario que utiliza un solo botón. Al presionarlo se crea otro botón con el "Caption = 'Ok'", y si lo presionas muestra un mensaje.

Espero te sea útil.

Saludos.

Unit Unit1;

Interface

Uses
Forms, Classes, Controls, StdCtrls;

Type
TForm1 = Class(TForm)
Button1: TButton;
Procedure Button1Click(Sender: TObject);
Procedure FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
Private
(* evento creado por el usuario *)
Procedure MyClick(Sender: TObject);
End;

Var
Form1: TForm1;
Btn: TButton;

Implementation

Uses Dialogs;

{$R *.dfm}
Procedure TForm1.MyClick(Sender: TObject);
Begin
ShowMessage('Has presionado el botón!!!!');
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If Assigned(Btn) Then
ShowMessage('El componente ya fué creado.')
Else
Begin
Btn:= TButton.Create(Self);
Btn.Left:= 100;
Btn.Top:= 200;
Btn.Caption:= 'OK';
Btn.Parent:= Form1;
Btn.OnClick:= MyClick;
End;
End;

Procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Begin
(* Liberar el componente de la memoria al cerrar el form *)
If Assigned(Btn) Then Btn.Free;
End;

End.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar