Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Вернуть фокус окну

Автор: Scooter 21.2.2009, 21:56

Здравствуйте дорогие форумчане!!!

Встала такая проблема. У меня форма FormStyle стоит в StayonTop;

Нужно чтобы она всегда была поверх всех окон и имела отклик с клавиатуры. Уже незнаю что и делать, а сделать надо отмазаться не получиться smile

...

Вот пытался решить проблему но ничего так и не помогло :(...

Код



IF Form1.Handle <> GetForegroundWindow Then
   Begin
   BringWindowToTop(Form1.Handle);
   End;

IF Form1.Handle <> GetForegroundWindow Then
   Begin
   SetForegroundWindow(Form1.Handle);
   End;

IF Form1.Handle <> GetForegroundWindow Then
  Begin
  SetWindowPos(form1.handle, HWND_TOPMOST, 0, 0, 0, 0,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  End;


IF Form1.Handle <> GetForegroundWindow Then
   Begin
   Application.RestoreTopMosts;
   End;


IF Form1.Handle <> GetForegroundWindow Then
   Begin
   SendMessage(Form1.Handle, WM_ACTIVATE,0,0);
   SendMessage(Form1.Handle, WM_SETFOCUS,0,0);
   End;

Помагите пожалуйста буду очень благодарен smile

Автор: Scooter 22.2.2009, 09:31

Почему на мои темы никогда никто не отвечает... Вот засада, придётся, как всегда самому както выкручиваться... :(((( smile

Намекните хоть чтонибудь, хоть чтонибуь :(...

Автор: Rohoss 22.2.2009, 09:53

Наверное, ты не правильно формулируешь вопросы… Я лично не понял, что ты хочешь…