acceder a objeto mediante una variable

[joanajj]

Buenas a todos, sabe alguien como conseguir que:

Por ej. tengo en Form1 3 botones:

form1.boton1
form2.boton2
form3.boton3

y quisiera que una variable por ej.

nombreboton:='boton2';

form1.nombreboton.visible:=false;

claro que esto no funciona, pero no sé com hacer que funcione de alguna forma, esto es solo para explicar la idea.


Gracias de antemano....

[jhonny]

Te lo explicare a ver si te sirve asi; Tengo una variable llamada BotonGeneral de tipo TButton (No String), a ella le asigno el botón por el que quiero tome forma y a esa variable la trato como si de ese botón se tratara, todo lo que le haga a esa variable se vera reflejado en el botón "Real" ya que lo que hicimos fue hacer que esa variable tomara la posición en memoria de dicho botón. Mejor dicho, un ejemplo:

En un formulario tengo Button1 y Button2, además declare una variable en la sección private llamada BotonGeneral:

Al OnClick de Button2 le coloco:

Código Delphi [-]
  BotonGeneral := Button1;
  BotonGeneral.Visible := False;

Mira como le dije a BotonGeneral que se desapareciera pero notaras que en ejecución todo le sucede a Button1.

Espero me haya hecho entender y que esto te sirva de algo.

[joanajj]

Gracias por responder.

Ok, lo que comentas es cierto, de hecho así lo tengo, el problema radica en que al pasar el valor para decidir que botón apago, lo paso como string por razones que sería muy largo de explicar.

Tu comentas hacer esto:

declaro botongeneral:tbutton;

y luego:

BotonGeneral := Button1;
BotonGeneral.Visible := False;

ok, pero mi problema es que debo pasarlo de esta manera:

nombreboton[5]:=`boton1`; ----> matriz tipo string con varios nombres de botones
...
...

BotonGeneral := nombreboton[5];--->aquí radica el problema.

botongeneral.visible:=false;

y me da error de que no coinciden los tipo tbutton y string;

Comprendes lo que necesito hacer???

Un saludo...

[Gregory Mazon]

Intenta lo siguiente:

BotonGeneral := nombreboton[5];
TButton(botongeneral).visible:=false;

o simplemente:

TButton(nombreboton[5]).Visible := False;

[[eduarcol]]

y no puedes crear la matriz de tipo TButton??

en caso de que no puedas lo otro seria esto,

Código Delphi [-]
BotonGeneral := Form1.FindComponent(nombreboton[5]);

BotonGeneral sigue siendo declarada como te lo explico jhonny

[jhonny]

Bueno, hice la prueba como indica eduarcol, pero como no me dejo compilar, entonces tuve que hacerlo un cambio:

Código Delphi [-]
BotonGeneral := TButton(FindComponent(nombreboton[5]));

También funciona con:

Código Delphi [-]
BotonGeneral := TButton(FindChildControl(nombreboton[5]));

[[eduarcol]]

Perdon se me olvido realizar el cast, porq estaba pensando en referenciar la respuesta de gregory.

La diferencia entre FindChildControl y FindComponent es que el primero no lo va a encontrar si esta dentro de un control contenedor, solo encuentra los hijos directos del control referenciado

seria bueno antes del cast verificar si encontro un objeto de la clase TButton o no haya devuelto un nil porq si no da error

[[Caral]]

Hola
Lo unico que se me ocurre seria una variable tipo string, pero sinceramente no le veo el caso, pero bueno seria algo asi:

Código Delphi [-]
var
MiBoton : String;
Begin
MiBoton:= 'form1.nombreboton.visible:=false;';

Esto en realidad se logra con el uses sin tanta complicacion.
Si generas un nonbre asignado a otro:

Código Delphi [-]
MiBoton:= Button1;
MiBoton.Enable:= True;

Para mi lo que estas haciendo, como en el caso anterior es duplicar el codigo sin sentido, no se realmente la funcion que puedas buscar con esto.
Saludos