Por
Saiyine
el 0000-00-00 00:00:00 - Secciones: - Enlace permanente: 479
procedure TForm1.ClickGeneral(Sender : TObject);
var
numbot : integer;
begin
with Sender as TButton do
begin
numbot:=SuperVal(Name);
Self.Caption := 'Has pulsado el boton nº' + inttostr(numbot);
end;
end;
Crea un form, crea cuatro o cinco botones y asocia el onclick de cada uno a ClickGeneral.
Otras entradas de la web que podrian interesarte:


. . .
Menuda oferta, ¿un pendrive Verbatim de 16Gb por solo 8,99€???
. . .
. . .
Se suspenden las traducciones de la wikipedia hasta que no se aclaren las condiciones de su adquisición práctica por parte de google.
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2011 Saiyine descargada en s, con 6094854 visitas en total, hoy (de un total de 0 previstas).
. . .