Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Devolver Valor de un Caption (https://www.clubdelphi.com/foros/showthread.php?t=42725)

muli 20-04-2007 20:16:13

Devolver Valor de un Caption
 
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 20-04-2007 20:20:41

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 24-04-2007 20:21:32

¿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


La franja horaria es GMT +2. Ahora son las 19:55:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi