Frames. ¿Existe un evento similar a onActivate?
 

Hola.

Tal como digo en el título, ¿existe en un Frame un evento similar al onActivate de un Form?.

El caso es que necesito que, una vez presentado un Frame, se ejecute un cierto código. Pero debe ejecutarse una vez se haya visualizado el Frame y no antes. El evento onResize se ejecuta antes de visualizarse el frame pero no después.

Gracias.
Adolfo Bonis
Barcelona

Tuve el mismo problema que tú y la única manera de solucionarlo que encontré fue usar OnEnter

Yo lo que hice fue realizar un procedimiento o función, dependiendo del caso, que realice lo que quieres hacer antes de que se muestre y después, invocarla.

Espero que te haya ayudado. Saludos.

El frame estará en un contenedor, muy posiblemente un Form, allí puedes usar el OnShow y llamar al procedimiento que hizo kasper.

Hola adebonis, yo utilizo el OnShow del formulario si es que mi Frame ya esta cargado en el formulario en cuestion y el procedimiento estaría en el Frame, el cual lo llamo en el OnShow del formulario. Ahora si el frame se cargara en ejecución, lo haría justamente despues de haber insertado el Frame en el formulario.

Saluditos

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

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

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.

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

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;

Saludos

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

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

é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

Pense que le había dado nombres, que verguenza :o, 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

Hola,

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

// Saludos

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

Roman has probado sobre esta parte:

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

Saluditos

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;

:D

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

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

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

Saludos

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

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

Saluditos

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

Saludos