Frames, esperar a que cree sus controles

[paubar]

Hola :

Estoy trabajando con Frames , las cuales inserto en un TTabSheet.
Aqui ningún problema.
El tema que cuando creo el frame y lo muestro, y en el mismo evento intento
acceder a sus me da un error de acceso violation.
A partir de otro evento , es decir un boton para crearlos y otro para acceder a sus propiedades , si que puedo.
Lo que sucede es que no se crea en el mismo momento, luego si puedo acceder. Asi que debo hacer un "Semaforo" para darle tiempo.
Yo accedo asi.
(Form.pagecontrol1.ActivePage.Controls[0] as TFRAME1).mMemo.lines.gettext
ESto funciona pero si lo ejecuto en otro evento.
Como debo hacer para no tener problemas ?

[[Delphius]]

Hola paubar, se que recién estás iniciandote en los foros... no se si ya te aconsejaron la guia de estilo. Si no es así, creo que darles una leída no viene mal.

Con respecto a tu pregunta, ¿Serías tan amable de redactarla mejor? ¡No se te entiende lo que escribiste! Parece que estás con hambre por que te haz comido algunas palabras y signos de puntuación.

Tranquilo, no te cobramos por la cantidad de palabras. Cuando más detalles nos dé y mejor formulada la pregunta... más fácil será responderte.

Saludos,

[paldave]

Bueno, que [Delphius] tiene razón, está un poco confuso el planteo, pero igual creo que te he entendido.
Por lo que veo creas el frame desde código, no desde el diseñador, lo cual ya es algo raro, ¿no te sería más útil crearlo e insertarlo en tiempo de diseño? Si lo crearas en tiempo de diseño no tendrías este problema, pues el frame se crearía junto con el form y antes de mostrarse ambos.
El problema es que si llamas al procedimiento Create del frame e inmediatamente tratas de acceder a sus propiedades o métodos resulta que no le das tiempo a Windows a crear un identificador para esa ventana, de ahí el error. Si esperas un tiempo prudente (milisegundos) a que finalicen las rutinas de creación del frame no tendrás problemas.
Si no quieres o no puedes crearlo en tiempo de diseño e insistes en utilizar el tiempo de ejecución puedes usar una rutina del tipo try... except... end para comprobar si se han terminado las rutinas de creación, y mantener un bucle hasta que se cumpla esa condición.
Sería algo así:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
label comienzo;
var fallo:boolean;
begin
comienzo:
  fallo:=false;
  try
    resultado:=(Form.pagecontrol1.ActivePage.Controls[0] as   TFRAME1).mMemo.lines.gettext;
  except
    fallo:=True;
  end;
  if fallo then
    goto comienzo;
end;

de forma que si se produce una excepcion se vuelve a intentar hasta que se produzca un resultado válido.
Espero que con esto soluciones tu problema. Saludos.

[paubar]

Era esto lo que preguntaba.
Para serte sincero estaba pensando en algo similar,... agradezco el detalle del código.
Por otra lado veo, e insisto hay otra manera de hacerlo ? Solo por curiosidad
con esta idea ya me vale..pero si se puede aprender algo más---
Tratare de redactar mejor la proxima vez, gracias a todos.

[dec]

Hola,

Habría que ver qué pasa por ahí... yo acabo de añadir un "Frame" con un botón en un formulario. A continuación he ocupado el evento "OnCreate" del formulario para acceder al "Frame" y deshabilitar el botón que este contiene. Y todo ha ido bien. Es decir, en el evento "OnCreate" del formulario ya se puede acceder al "Frame".

¿Estás creando el "Frame" en tiempo de ejecución? Pero, aunque así fuera, una vez creado el "Frame"... no debería haber problema para acceder al mismo. Ahora bien, si dices que hay algún problema... podrías acaso ser un poco más específico y aportar algo del código que estás usando en el constructor del "Frame" (si lo ocupas)...

En todo caso la solución del compañero paldave no me parece muy acertada, puesto que además de hacer un uso del bloque "try...except" discutible, al menos, el usar un "goto" no creo que sea tampoco lo más natural... no sé... Para eso podría probarse con un bucle "while", o tal vez un "repeat"... pero yo creo que ni eso debe ser necesario.

Si el objeto en cuestión (el "Frame") está creado... ¿qué problema hay para no poder acceder al mismo? Esto es lo que habría que mirar y tratar de solucionar, digo yo.

[paldave]

A ver si así les gusta más:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var fallo:boolean;
begin
  repeat
    fallo:=false;
    try
      resultado:=(Form.pagecontrol1.ActivePage.Controls[0] as   TFRAME1).mMemo.lines.gettext;
    except
      fallo:=True;
    end;
  until fallo=false;
end;

[dec]

Hola,

Pues, en mi ignorancia, me sigue pareciendo que se emplea un bloque "try...except" no como debería. De hecho el código anterior no me parece correcto, un bucle "repeat" que "intenta" obtener el texto de un Memo... pero si surge una excepción (cualquier excepción además) al cabo se volverá a intentar... indefinidamente...

Ese código no parece que esté muy bien planteado, pero, no te culpo, puesto que al cabo tampoco sabemos a ciencia cierta qué puede estar ocurriendo. A ver si el compañero se decide a copiar por aquí un poco de código o a explicar de forma pormenorizada su caso.