Frames. ¿Existe un evento similar a onActivate?

[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

[*Caro*]

Empezado por Lepe

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:

Pense que le había dado nombres, que verguenza , en que estare pensando. Sobre el SetBound no lo conocía. Muchísimas gracias Lepe.

¿Sobre el Frame que no aparece con InsertControl, lo has probado?

Saluditos

[roman]

Hola,

No hace falta pelearse con nombres únicos. Basta poner Name := ''.

// Saludos

[*Caro*]

Empezado por roman

Basta poner Name := ''.

Que interesante, eso tampoco lo sabía, acabo de hacer la prueba y si funciona, muchas gracias amiguito.

Roman has probado sobre esta parte:

Empezado por Caro

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

Solo es curiosidad, ya que como funciona con el parent lo hare de esa forma al final.

Saluditos

[roman]

Empezado por Caro

Roman has probado sobre esta parte:

Ya probé y, en efecto, falla, je, je, pero todavía no sé bien porqué. Ayer cuando hice la prueba me limité a poner:

Código Delphi [-]
constructor TFrame2.create(AOWner:TComponent);
begin
 inherited;
end;

con lo cual no fallaba. Es al poner el método limpiar que falla. Haciendo una traza de SetParent (cuando se pone Parent := Self):

Código Delphi [-]
  if Parent <> nil then UpdateActionLists(opRemove);

  if (Parent = nil) and HandleAllocated then
    DestroyHandle;

  inherited;
  if Parent <> nil then UpdateActionLists(opInsert);

veo que si no se usa limpiar, el condicional de enmedio no se ejecuta, mientras que al usar limpiar, en algún momento se fuerza a crear el Handle del marco lo que obliga la llamada al DestroyHandle. Pero hasta ahí he llegado, todavía no sé en qué parte exactamente afecta.

// Saludos