PDA

Ver la Versión Completa : Usar propiedades de Formularios en Memoria con arreglos


jevo19100
21-04-2007, 05:15:44
Hola

Uso D7. El caso es el siguiente:

Tengo un form llamado TfrmTemp, entonces en vez de crearlo por su variable (frmTemp) he decidido hacerlo con otra variable (de un procedimiento) derivada del TForm.

Como se aprecia aqui!

procedure Crear(Form:TFormClass);
var
pT mpFrm:Tform;
begin
pTmpFrm:=Form.Create(Application);
pTmpFrm.show;
end;
procedure Ejemplo;
begin
Crear(TfrmTemp);
end;

Entonces,
Como hago referencia a este formulario?, ya que con pTmpFrm no se puede hacer.
Como puedo saber si 'X' formulario está creado?(Assigned())
Y despues de saber si esta o no creada, poder usar unas de sus propiedades.

No se si con ^ (Form^) se podría resolver ya que tiene que ver con los punteros. La verdad es que no se manejar bien eso.

Este embrollo vino a raiz de que quise utilizar un arreglo, algo como

procedure AsignarFrm(ArForm:array of TForm);
var
I:Integer;
begin
for I:= 0 to High(ArForm) do
if Assigned(pArForm[I]) then
pArForm[I].Repaint;
end;
procedure Ejemplo2;
begin
AsignarFrm([frmTemp, frmprincipal,....]);
end;
Gracias