Devolver Valor de un Caption

[muli]

Tengo en un formulario muchos botones iguales que su caption es un numero, y quiero generar un procedimiento común a todos ellos del modo que me envie el numero que tiene en su caption.

Gracias.

Saludos.

[ContraVeneno]

Yo te recomendaría que usaras la propiedad Tag de tus botones.

Con esta propiedad puedes utilizar una instrucción:

Código Delphi [-]
Case (Sender as TButton).Tag of
 1: ...
 2: ...

etc...

o directo:

Número := (Sender as TButton).Tag;

[ixMike]

¿Cómo quieres hacerlo?

Por ejemplo, si es haciendo click, pues pones en el evento OnClick de uno de ellos.

Código Delphi [-]
VariableStr:=(Sender as TButton).Caption;

Después seleccionas todos los botones, y le asignas a todos el mismo evento OnClick.

Para convertir el texto a número, pues

Código Delphi [-]
VariableInt:=StrToInt(VariableStr);

Jeje, bueno, supongo que esto ya lo sabías.

Saludos