Frames, esperar a que cree sus controles

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

[[rcarrillom]]

Saludos al foro

Viendo tu código rápidamente (dificil de leer sin las etiquetas [ DELPHI ][ /DELPHI ]), veo que utilizas PostMessage para enviar el mensaje de crear, ignoro que motivo tengas para usar este método, yo mandaría llamar directamente a UMCreateFrame sin más.
Tu método tendría un defecto fundamental según mis escasos conocimientos teórico-técnicos , PostMessage inserta el mensaje al final de la cola, pudiendo existir cientos pendientes antes de ejecutar la creación, es decir al regresar de la llamada

Código Delphi [-]
    PostMessage( handle, UM_CREATEFRAME, WPARAM(forTabsheet), 0 );

NO se ha creado el frame. Si usas SendMessage, manda el mensaje inmediatamente (que alguien me corrija si he cometido una barbaridad con semejante afirmación) y creo que sí se crea elcomponente al regresar de la llamada. De todas maneras, te recomiendo que cambies tu metodología y no dependas del sistema de mensajes para la creación de componentes, a menos que tengas una razón muy muy poderosa.

[paubar]

Bueno he encontrado una solución, que es poner luego de la sentecia show.
lo siguiente:
Sleep(1);
Con eso es suficiente, pero ahora me encuentro en el dilema de quiero
crear un control PageControl, con Tabsheet en tiempo de ejecucion, y a cada uno de ello asignarles el mismo Frame1,Los controles de mi Frame1 son unicos?
Es decir una vez que cree Frame:=Frame1.Create(Self), no puedo hacer mas copias, esto funcionaba antes , porque en el evento hide se eliminaba mediante free, y no daba el error de que la Frame1 ya existía.
Antes quedaban todos los tabsheet con su frame, pero cada vez que se mostraban se borra el texto del Mmemo que contiene, un rollo,es decir te lo ponia igual que al principio.A mi me interesa que ademas pueda hacer los cambios y perduren.
Se puede hacer lo que quiero o no ?

[paldave]

Puedes insertar el archivo ".pas" o el proyecto completo zipeado? Sería de gran ayuda para ayudarte.

[paubar]

Bueno:

1) Use Sleep(1) para dar tiempo a que se creen los controles, no me convence demasiado pero funciona, por otro lado se me habia ocurrido enviar
un SendMessage y esperar a que me conteste, pero no se que mensaje enviar a un TFrame, creo que esa sería la opcion.

2) El segundo problema era solo un error de código, cambie la manera de crear un array de Frame1.
Tab:=TSuiTabSheet.Create(Self);
Tab.PageControl:=Form1.suiPageControl1;
Tab.Tag:=Integer(TFrame1);
Tab.Caption:=RemotoName;
Form1.CreateFrame( Tab as TSuiTabsheet );
Tab.Show;
Sleep(1);
Aqui se crea el TabSheet

Llamo directo al metodo CreateFrameProcedure TForm1.CreateFrame(forTabsheet: TSuiTabSheet);
Var
Frame: TFrame;

begin
Frame := TFrame1.Create(Self);
with Frame do
begin
Parent := Self;
Visible := True;
frame.Parent := forTabsheet;
frame.Align := alClient;
Name := 'FFrames' + IntToStr(pIndex);
inc(pIndex);
end;
pIndex es global

Comentarios:

El usar Sendmessage y posTmessage no obtuve cambio niguno, por lo menos perceptible.Los dos funcionaban igual aunque son distintos métodos.

El error de código era porque desde el evento show se llamaba a createFrame y era que entonces al cambiar de pestaña se colocaba una frame nueva.

Un saludo para todos y haber si podemos encontrar una solución mejor para el pto 1.
Ciao