Ver la Versión Completa : BUtton
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
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.