|
hola gracias a caral aqui esta la solucion
Cita:
var boton: tbutton;
procedure TForm1.FormCreate(Sender: TObject);
begin
Boton := TButton.Create(Self);
Boton.Parent := Form1;
Boton.Left := 250;
Boton.Top := 250;
Boton.OnClick := Saludo;
boton.Caption:='boton creado';
end;
Procedure TForm1.Saludo(Sender : TObject);
Begin
ShowMessage('Hola Mundo');
end;
end.
|
pero el truco esta en poner el procedimiento k creamos en esta parte
Cita:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
Procedure Saludo(Sender : TObject); //aqui hay k ponerlo para k funcione
|
Cristo ls ama a todos gracias a todos por ayudarme
__________________
Cristo te ama, ven a d él, ya k te espera con los brazos abiertos. Dios te bendiga mucho
|