[[escafandra]]

Una función virtual es una función de la clase base que puede ser, o no, redefinida en las clases derivadas y que tras ello puede ser llamada desde un puntero o referencia a su clase base.

WndProc es una función virtual de la clase base TForm que hereda nuestro formulario y que usará a no ser que la reescribamos para nuestro formulario. WndProc se encarga del tratamiento de todos los mensajes de TForm y las clases derivadas (se hereda). Como nos interesa interceptar los mensajes redefino la función, es por ello que puse una fracción de la definición de la clase de nuestro formulario en primer plano:

class TForm2 : public TForm
{
...........
protected:    
  virtual void __fastcall WndProc(Messages::TMessage &Message);
..........
};

Y luego la implementamos teniendo cuidado de terminar llamando a la función WndProc de la clase base (TForm::WndProc).

Este truco sirve para interceptar cualquier mensaje o crear nuevos eventos o respuestas a mensajes no previstos en la clase base TForm.

También podemos dar respuesta a un mensaje con la macro BEGIN_MESSAGE_MAP / END_MESSAGE_MAP(TForm)...

En definitiva, en este caso, estamos reescribiendo la respuesta al mensaje WM_KILLFOCUS para aprovechar a ponernos en primer plano:

void  __fastcall TForm2::WndProc(Messages::TMessage& Message)
{
  if(Visible && Message.Msg == WM_KILLFOCUS)
      SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE);

  TForm::WndProc(Message);
}

Espero haberme explicado bien.


Saludos.