acceder a objeto mediante una variable

[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

[jhonny]

Empezado por eduarcol

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

Eso es muy cierto, entonces yo haría la cosa al revés, declaro Botongeneral como TComponent y el procedimiento lo dejo asi:

Código Delphi [-]
 
procedure BotonVisible;
begin
  BotonGeneral := nil;
  BotonGeneral := FindComponent(nombreboton[5]);
  if BotonGeneral <> nil then
    TButton(BotonGeneral).Visible := False;
end;

De esa manera me evito el salto de dicho error que comentaste.

[[eduarcol]]

jejeje, bueno bueno ya no me piques, esta muy buena tu solucion. aunque seria mejor crear la matriz de controles en lugar de estar buscandolo,

si te sigo la corriente jhonny seguro armamos un lio como el de los numeros

[joanajj]

Sres. he probado de todo y na de na.

Para que salgáis de la intriga, estoy intentando hacer un juego de parchís, y para cada ficha utilizo un Tjvimage de las JVCL, para así gestionar y mover cada ficha. Así tengo por ej. fichaaz1, fichaaz2,fichaaz3,fichaaz4, ficharo1,ficharo2,etc. hasta completar las 16 fichas, esto me pareció más sencillo que estar con Sprites y gráficos.

Entonces tengo una matriz tipo string onde establezco que ficha hay en cada casilla, así por ej. en quien[10]:='fichaaz2', me indica que en la casilla 5 2ª ficha está la 2ª ficha azul. Hasta ahí todo bien, pero claro en un momento dado necesito ese dato para operar. Entonces para por ej. mover la fichaaz2 a la casa necesito hacer que fichaaz2.left:=21 y fichaaz2.top:=100, pero el problema que estoy teniendo es que el nombre del objeto(tjvimage) es un string y no puedo utizarlo directamente.

He hecho:

nomficha:tjvimage;

pero claro no consigo que el string quien[10] sea el nombre del objeto. Haceros a la idea de algo así : quien[10].left:=21;
por supuesto no funciona, pero es la idea gral.

Gracias por vuestro interés...

[jhonny]

Empezado por joanajj

Sres. he probado de todo y na de na.

Para que salgáis de la intriga, estoy intentando hacer un juego de parchís, y para cada ficha utilizo un Tjvimage de las JVCL, para así gestionar y mover cada ficha. Así tengo por ej. fichaaz1, fichaaz2,fichaaz3,fichaaz4, ficharo1,ficharo2,etc. hasta completar las 16 fichas, esto me pareció más sencillo que estar con Sprites y gráficos.

Entonces tengo una matriz tipo string onde establezco que ficha hay en cada casilla, así por ej. en quien[10]:='fichaaz2', me indica que en la casilla 5 2ª ficha está la 2ª ficha azul. Hasta ahí todo bien, pero claro en un momento dado necesito ese dato para operar. Entonces para por ej. mover la fichaaz2 a la casa necesito hacer que fichaaz2.left:=21 y fichaaz2.top:=100, pero el problema que estoy teniendo es que el nombre del objeto(tjvimage) es un string y no puedo utizarlo directamente.

He hecho:

nomficha:tjvimage;

pero claro no consigo que el string quien[10] sea el nombre del objeto. Haceros a la idea de algo así : quien[10].left:=21;
por supuesto no funciona, pero es la idea gral.

Gracias por vuestro interés...

Disculpa pero, ¿Ya leíste los post anteriores?, eduarcol te sugiere una matriz de controles y ademas de eso, entre los dos hemos sacado un procedimientico que quizá te sirva. ¿Ya probaste con algo de ello o definitvamente no sirven esas soluciones?

[Neftali [Germán.Estévez]]

Ya te han puesto el código que funciona correctamente:

Empezado por joanajj

...pero claro no consigo que el string quien[10] sea el nombre del objeto. Haceros a la idea de algo así : quien[10].left:=21;
por supuesto no funciona, pero es la idea gral.

Si tienes el combre del componente en un string, con este código puedes acceder al componente:

Código Delphi [-]
procedure BotonVisible;
begin
  BotonGeneral := nil;
  BotonGeneral := FindComponent(nombreboton[5]);
  if BotonGeneral <> nil then
    TButton(BotonGeneral).Visible := False;
end;

Sólo que en tu caso debes cambiar el Button por un Tjvimage.

Algo así:

Código Delphi [-]
procedure CambiarFicha;
begin
  FichaGeneral := nil;
  FichaGeneral := FindComponent(quien[10]);
  if FichaGeneral <> nil then
    TJVImage(FichaGeneral).Left := 5;  
    TJVImage(FichaGeneral).Top := 100;
    ....
end;

Nota: Yo utlizaría parámetros en esta función para pasar nombre, Left, Top,...