Frames. ¿Existe un evento similar a onActivate?

[[Lepe]]

Empezado por Caro

Ahora si el frame se cargara en ejecución, lo haría justamente despues de haber insertado el Frame en el formulario.

Casi mejor modificar el constructor del Frame, así no tienes ni que llamarlo.

Código Delphi [-]
public
   constructor create(AOWner:TComponent);override;


implementation

constructor TFrame.create(AOWner:TComponent);
begin
   inherited;
   Tu_función_a_ejecutar;
end;

Saludos

[*Caro*]

Empezado por Lepe

Casi mejor modificar el constructor del Frame, así no tienes ni que llamarlo.

Sería muchísimo mejor pero no me esta funcionando, entiendo lo sobrescribir el constructor, puse el codigo tal cual lo pones arriba y en la creación e inserción del Frame lo hago de esta forma.

Código Delphi [-]
 Frame : TFrame2;

begin
 Frame := TFrame2.Create(Self);
 InsertControl(Frame);

pero no me muestra el Frame en el formulario, si lo hago sin sobreescribir el constructor lo muestra.

Saluditos

[droguerman]

debes forzar la entrada al control usando SetFocus, así puedes controlar el evento OnEnter

Otra solución puede ser creando un derivado de TFrame y creando una función que maneje el mensaje CM_VISIBLECHANGED, con un poco de código lo tienes resuelto.

[[Lepe]]

En ese caso concreto no vale mi respuesta, ¡tenías que poner la excepción que cumple la regla!

La función a ejecutar debe estar definida dentro del Frame. InsertControl (en este caso concreto) pertenece a la ventana donde será insertada el frame. Tu código es equivalente a :

Código Delphi [-]
Form1.InsertControl(Frame)

que podría ejecutarse así:

Código Delphi [-]
constructor TFrame.create(AOWner:TComponent);
begin
   inherited;
   self.Parent := AOWner;
end;

Empezado por Ayuda de InsertControl

Applications should not need to call InsertControl directly. Child controls are automatically inserted and removed when added or deleted at design time. At runtime, use the Parent property of the child control to insert it in the Controls array. I

Saludos

[roman]

A mi me gustaría ver cuál es la operación que usa Caro en el constructor. Según yo entendí, no es que ahí use InsertControl, sinio que ésta es la forma en que inserta el marco.

Yo hice una pequeña prueba redefiniendo el constructor del marco y no tuve ningún problema; se visualiza correctamente, tanto usando InsertControl como asignando el Parent.

// Saludos

[*Caro*]

Holitas Roman y Lepe, les adjunto la pruebita que hice, con el parent si funciona, me muestra el Frame, pero con InsertControl no, he probado con InsertControl, self.InsertControl, Form1.InserttControl y nada, no muestra el Frame, tengo una pregunta mas, me he creado dos instancias de TFrame3, pero cuando se crea una y al crear la otra me sale "A component named Frame3 already exists", ¿no se puede crear mas instancias de un Frame?.

Saluditos

[[Lepe]]

échale una visual al calendario con frames, es el mismo frame creado 30 veces.

Básicamente, antes de asignar el Parent, debes darle un nombre único en todo ese Form. Puedes usar un contador en esa ventana que se va incrementando:

Código Delphi [-]
Frame2 := Tframe2.Create(self);
Frame2.Name := 'Frame'+ inttostr(contador);
inc(contador); // variable global en este Form
Frame2.setBounds(0, 0, 100,100);

 // ahora que ya tiene un nombre único, lo añadimos al padre.
Frame2.Parent := self;

Saludos

[[Lepe]]

Yo me echo a temblar cada vez que leo eso de "Applications should not need to call xxx directly", sobre todo cuando he usado ese xxx desde hace mucho .

Ya me ha pasado "cosas raras" como las que comenta Caro.

Saludos

[roman]

Y sí, claro. Si la documentación lo dice, por algo será . Pero como dice Caro, ya es más que nada por curiosidad.

// Saludos

[*Caro*]

Perdon por responder recien, como les dije no hay problema, con el Parent ya es suficiente, muchas gracias amiguitos.

Saluditos

[[Lepe]]

Empezado por roman

Y sí, claro. Si la documentación lo dice, por algo será . Pero como dice Caro, ya es más que nada por curiosidad.

// Saludos

Ah, creí que yo era el único "curiosón" en este foro, que alegría ver que no estoy solo

Saludos