acceder a objeto mediante una variable

[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

[jhonny]

Empezado por eduarcol

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

Jejeje, Debo confesar que cada cosa que escribo en este hilo, me hace recordar el rollo de los números y hasta miedo me da .

[[egostar]]

Empezado por jhonny

Jejeje, Debo confesar que cada cosa que escribo en este hilo, me hace recordar el rollo de los números y hasta miedo me da .

, Siento no poder acompañarlos con este tema ya que escapa de mis pocos, que digo pocos, mas bien nulos conocimientos.

Será para la otra....

Digo, solo por si estaban preocupados porque no he intervenido

Salud OS.

[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?

[joanajj]

he probado y nada...

[jhonny]

Empezado por joanajj

he probado y nada...

Esta bien, entonces muestranos el pedacito de codigo donde recorres dicha matriz y tratas de hacer aparecer y desaparecer botones con dicho nombre para ver en que te podemos colaborar.

Empezado por egostar

Digo, solo por si estaban preocupados porque no he intervenido

No sabes el vértigo que me dio cuando vi que habías respondido

[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,...

[joanajj]

Gracias a todos por responder, ahora estoy en el trabajo, esta noche pruebo las últimas opciones que habéis puesto y os digo como me ha ido.
Estoy convencido de que de alguna forma debe funcionar lo que comento.

Probaré de nuevo y os comento, muchas gracias a todos y hasta después...

Saludos...

[joanajj]

Buenas de nuevo, tal como dije iba a probar, y el 1er error que me encuentro es que al hacer.

FichaGeneral := FindComponent(quien[10]);

Delphi me da el error:

Undelclared Identifier : FindComponent

y si hago

FichaGeneral := Form1.FindComponent(quien[10]);

me dice incompatibles types TJvimage yTcomponent.

No sé por que falla.

Un saludo...

[[egostar]]

Empezado por joanajj

Buenas de nuevo, tal como dije iba a probar, y el 1er error que me encuentro es que al hacer.

FichaGeneral := FindComponent(quien[10]);

Delphi me da el error:

Undelclared Identifier : FindComponent

y si hago

FichaGeneral := Form1.FindComponent(quien[10]);

me dice incompatibles types TJvimage yTcomponent.

No sé por que falla.

Un saludo...

Como declaraste FichaGeneral

Yo haría esto

Código Delphi [-]
Var
  FichaGeneral: TComponent;
  quien : Array [1..16] of TJvimage;

.......

  FichaGeneral := FindComponent(quien[10].Name);

Salud OS.

[[eduarcol]]

Seria asumir por el error que fichageneral esta declarada como tJvImage

Asi qe deberias hacer un cast algo asi:

FichaGeneral := TJvImage(Form1.FindComponent(quien[10]));


y no te olvides de comprobar que lo que devuelve findcomponent sea del tipo de objeto deseado.

EDITO: Se me adelanto el amigo Egostar, bueno mi lentitud con el teclado

[[egostar]]

Empezado por eduarcol

Seria asumir por el error que fichageneral esta declarada como tJvImage

Asi qe deberias hacer un cast algo asi:

FichaGeneral := TJvImage(Form1.FindComponent(quien[10]));


y no te olvides de comprobar que lo que devuelve findcomponent sea del tipo de objeto deseado.

EDITO: Se me adelanto el amigo Egostar, bueno mi lentitud con el teclado

, bueno algo bueno deberia yo de tener.....

Lo que se me hace raro es que a mi no me funciona como lo hacen

Código Delphi [-]
nomficha:=form1.FindComponent(quien[10]);

Me da error porque FindComponent requiere de un parámetro String, por lo que tuve que poner

Código Delphi [-]
nomficha:=form1.FindComponent(quien[10].name);

Y lo probe en Delphi4 y Turbo Delphi

Pero bueno, lo importante es que funcionó.

Salud OS.

Edito:

Olvidenlo, ya veo cual fue mi problema, declaré el arreglo quien de esta forma...

Código Delphi [-]
  quien: Array[1..2] of TImage;

[joanajj]

Sres. con Findcomponent funciona perfectamente, solo me faltaba declarar una variable de tipo 'nomficha:Tcomponent' y no tipo 'nomficha:TJvimage' y luego TJvimage(nomficha).left:=100, etc...., con ello desapareció el error, y funcionó lo que pretendía.

nomficha:Tcomponent;

begin

nomficha:=nil;
nomficha:=form1.FindComponent(quien[10]);
tjvimage(nomficha).Left := 21;
tjvimage(nomficha).Top := 645;

end;





Un saludo y muchas gracias, seguro que me veréis con alguna pregunta nueva, espero que menos liante, y si llego a terminar el parchís este, aunque sea en meses, lo subo.

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

Empezado por joanajj

Sres. con Findcomponent funciona perfectamente,...

Fantástico!!!; Sólo comentar que con 128 mensajitos, deberías ya utilizar los TAG's correctamente.