Hola chicos de este foro:
Les cuento que estoy haciendo una aplicación con del delphi7 y en mi formulario principal se me ha ocurrido crear de forma dinámica unos frame como les muestro.
Código Delphi
[-]procedure TPrincipalForm.JvXPBar5ItemClick(Sender: TObject;
Item: TJvXPBarItem);
begin
LiberarFrame;
Case Item.Index of
0:begin miFrame:=TBodegaFrame.Create(nil);
end;
1:begin miFrame:=TNucleosFrame.Create(nil);
end;
2:begin miFrame:=TConsumidoresFrame.Create(nil);
end;
End;
miFrame.Parent:=Panel1;
miFrame.align:=alClient;
end;
y los libero a través de este procedimiento:
Código Delphi
[-]procedure TPrincipalForm.LiberarFrame();
begin
if assigned(miFrame) then
begin
miFrame.Free;
miFrame:= nil;
end;
end;
Hasta ahí todo sin problema, pero ... a la hora de acceder a algunos de los componentes de esos Frame, digamos por ejemplo un TListView desde otro formulario ahi me da error, mejor dicho no he podido lograr concretar la linea de código.
Ya estan agregadas las uses Bodegas y Principal
al formulario Principal puedo acceder sin problema por ejemplo:
Código Delphi
[-]PrincipalForm.JvXPBar5.Collapsed := false;
Cita:
Pero no de la mismo forma con BodegaFrame. XXX
|
Lo he intentado con:
[Error] ActBodega.pas(154): Undeclared identifier: 'miFrame'
Código Delphi
[-]BodegaFrame.ListViewBodega
[Error] ActBodega.pas(154): Undeclared identifier: 'BodegaFrame'
Código Delphi
[-]PrincipalForm.ListViewBodega
[Error] ActBodega.pas(154): Undeclared identifier: 'ListViewBodega'
Código Delphi
[-]PrincipalForm.BodegaFrame.ListViewBodega
[Error] ActBodega.pas(154): Undeclared identifier: 'BodegaFrame'
Amigos mios no se que hacer ademas de alarme los pelos !!!
Si alguien me pudiera ayudar se los iba agradecer
Mil gracias de antemanos,
Salu2.