PDA

Ver la Versión Completa : BUtton


yoko
30-06-2006, 02:39:41
Mi problema es el sig necesito crear un button en tiempo de ejecucion, a ver si me pueden ayudar de antemano muchas gracias :)

esocrates
30-06-2006, 04:28:05
Un ejemplo para hacer lo que pedís.

Var
MiBoton : TButton; //Puntero a la clase
begin
MiBoton := TButton.Create(Form1); // Se crea el Botón en el Form 1

with MiBoton do //Con el Botón creado hacer
begin
Parent := Form1; // Contenedor del Botón
height := 30;
width := 120;
caption := 'Mi Botón';
left := (Form1.ClientWidth - width) div 2;
top := (Form1.ClientHeight - height) div 2;
end;
end;

Un saludo