acceder a objeto mediante una variable

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

[[eduarcol]]

Empezado por egostar

Digo, solo por si estaban preocupados porque no he intervenido

Pues la verdad esperaba que aparecieras con la solucion facil. por ejemplo

MoverFicha

pues ya que no, a mi se me ocurre ¿porq no utilizas la matriz de controles?

lo unico que tendrias que hacer es que luego de mover en la gui lo mueves en la matriz igualando en la siguiente posicion y haciendo null la actual

piensalo y avisas

[[egostar]]

Empezado por eduarcol

Pues la verdad esperaba que aparecieras con la solucion facil. por ejemplo

MoverFicha

pues ya que no, a mi se me ocurre ¿porq no utilizas la matriz de controles?

lo unico que tendrias que hacer es que luego de mover en la gui lo mueves en la matriz igualando en la siguiente posicion y haciendo null la actual

piensalo y avisas

Me pegaste donde duele amigo

Haber, aun no entiendo eso de que el nombre del objeto es un string, pero si se que un objeto tiene la porpiedad name, yo sugiero esto, haber si con la ayuda de los que si saben podemos llegar a una solución.

Sabemos que el name de x objeto es 'fichaaz2'

Pasando el nombre tal cual:

Código Delphi [-]
   Image1.Name := 'fichaaz2';

y luego, en este ejemplo al dar doble click a la imagen

Código Delphi [-]
procedure TForm1.fichaaz2DblClick(Sender: TObject);
begin
    with Sender as TImage do begin
       if (Sender as TImage).Name = 'fichaaz2' then begin
          (Sender as TImage).Top := 100;
          (Sender as TImage).Left := 21;
       end;
    end;
end;

Salud OS.

[[eduarcol]]

Empezado por egostar

Me pegaste donde duele amigo

JEJEJE conste que no queria pero aqui voy yo tambien

Empezado por egostar

Haber, aun no entiendo eso de que el nombre del objeto es un string, pero si se que un objeto tiene la porpiedad name

y name es de que tipo ?


Ahora yo me sigo inclinando por un matriz de controles

Código Delphi [-]
//Para Declarar
var
   MiMatriz: Array[0..yy] of Tjvimage

...

//Para asignar
MiMatriz[n] := fichaaz2;  //Sin los apostrofes porq igualamos es al control

...

//Para Utilizar
MiMatriz[n].Left := 120;

...

//Para cambiar de posicio
MiMatriz[x] := MiMatriz[n];
MiMatriz[n] := nil;

Donde n y x son valores del indice que necesites en ese momento dependiendo como lo determines

yy = numero de controles a utilizar

espero sea lo que buscas