Por
Saiyine
el 0000-00-00 00:00:00 - Secciones: - Enlace permanente: 470
procedure TForm1.miClick(Sender: TObject);
begin
ShowMessage('El nuevo boton ha sido pulsado');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TButton.Create(self) do begin
Left := 50;
Top := 50;
Width := 120;
Height := 40;
Name := 'Boton nuevo';
Caption := 'Un boton';
OnClick := miClick;
Parent := Form1;
end;
end;
Otras entradas de la web que podrian interesarte:
. . .
. . .
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2011 Saiyine descargada en s, con 6094825 visitas en total, hoy (de un total de 0 previstas).
. . .