Frames, esperar a que cree sus controles

[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.

[paubar]

Aplicar este bucle, no va, me sigue generando un acces violation y no lo puedo controlar con esto, se bloquea la aplicación.
Había pensado en algún evento del Frame para que cuando se mostrará sus componentes este aplicara una variable Boolean y de esta manera acceder a sus elementos, pero no tiene , se podriá leer algún "message" para determinar el pto en que esta todo creado?.
Es decir un procedimiento de este tipo;
procedure TForm1.UMCreateFrame(var msg: TUmCreateFrame);
Var
frame: TFrame;
begin
If msg.tabsheet.Tag <> 0 Then Begin
frame := TFrameclass(msg.tabsheet.Tag).Create(self);
frame.Parent := msg.tabsheet;
frame.Align := alClient;
End;
end;
Esto no me dice nada de sus componentes....
Por otro lado, yo creo los TTabsheet en runtime, y luego asigno el frame a él.
Tab:=TTabSheet.Create(Self);
Tab.PageControl:=suiPageControl1;
Tab.Tag:=Integer(TFrame1);
Tab.OnShow:=TabSheetShow;
Tab.OnHide:=TabSheetHide;
Tab.Caption:='Hola';
Tab.Show;
Los Frame no son creado en runtime si no que los asigno al TTabsheet.
Un salu2

[paubar]

Procedure TForm1.CreateFrame(forTabsheet: TSuiTabSheet);
begin
If GetFrame( forTabsheet ) = nil Then
PostMessage( handle, UM_CREATEFRAME, WPARAM(forTabsheet), 0 );
end;

procedure TForm1.DestroyFrame(forTabsheet: TSuiTabsheet);
begin
getFrame( forTabsheet ).Free;
end;

function TForm1.GetFrame(forTabSheet: TSuiTabsheet): TFrame;
begin
If not Assigned( forTabsheet ) Then
forTabsheet := Suipagecontrol1.activepage;
Result := nil;
If Assigned( forTabsheet ) and
(forTabSheet.ControlCount > 0) and
(forTabSheet.Controls[0] Is TFrame)
Then
result := TFrame(forTabSheet.Controls[0]);
end;

Type
TFrameclass = class of TFrame1;

procedure TForm1.UMCreateFrame(var msg: TUmCreateFrame);
Var
frame: TFrame;
begin
If msg.tabsheet.Tag <> 0 Then Begin
frame := TFrameclass(msg.tabsheet.Tag).Create(self);
frame.Parent := msg.tabsheet;
frame.Align := alClient;
End;
end;
Este es todo el codigo.
Haber si podemos llegar a una solución.
De todas maneras lo que pasa es que no se da tiempo a que windows cree los componentes.
A lo mejor solo se trata de buscar el componentes con FindComponents y haber si es distinto de nil.
Pero lo interesante es encontrar la mejor manera de hacerlo.