Ver Mensaje Individual
  #5  
Antiguo 10-10-2012
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Analizando mejor la cuestión me doy cuenta de que se pide en un form que no sea el principal...

En ese caso el mecanismo que propongo es reescribir la función virtual TForm::WndProc():
Código:
class TForm2 : public TForm
{
...........
protected:    
  virtual void __fastcall WndProc(Messages::TMessage &Message);
..........
};
Código:
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);
}

Saludos.
Responder Con Cita