Ya te han puesto el código que funciona correctamente:
Cita:
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,...