Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Referenciar forma desde variable...!!! (https://www.clubdelphi.com/foros/showthread.php?t=63417)

xmalmorthen 12-02-2009 18:25:08

Referenciar forma desde variable...!!!
 
Hola que tal compañeros.. aqui hando con una duda... voy al grano

Tengo una tabla en una base de datos sql server en donde consulto por medio de un "id" la cadena del nombre de un tform, el cual al obtener esta cadena de texto lo que quiero es hacer un ciclo para recorrer los componentes del mismo tform, lo que no se es como hacer la referencia a ese componente tform por medio de la cadena de texto que obtuve ante la consulta...!!! el ciclo para que recorra el componente no tengo problema, de hecho les pongo un ejemplo para que vean lo que intente hacer....

var
sCad:string;
forma:tform;
Mnu:tmainmenu;
begin
sCad:= 'Select forma from Ca_Modulos where Id_Modulo=1'
with qrytempo do
begin
close;
sql.Clear;
sql.Add(sCad);
open;
forma:= tform.Create(self);
forma:= tform(qrytempo.FieldByName('forma').asstring);
close;
end;

for i := 0 to forma.ComponentCount-1 do
if (forma.Components[i] is tmainmenu) then
begin
Mnu:=tmainmenu(forma.Components[i]);
break;
end;

cuando asigno el valor a la variable forma no marca error pero no apunta a la forma deseada porque al llegar al ciclo es cuando me marca el error de que el valor es inaccesible.

espero me puedan ayudar, de ante mano muchas gracias...!!!

Caro 12-02-2009 18:39:20

Hola, lo puedes hacer con FindComponent:

Código Delphi [-]
 forma :TComponent;
begin  
  forma := Application.FindComponent(qrytempo.FieldByName('forma').asstring);
  .....................

Saluditos

xmalmorthen 12-02-2009 19:20:51

muchisimas gracias [Caro] tu solucion me sirvió perfectamente...!!!


La franja horaria es GMT +2. Ahora son las 09:07:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi