VPF::Вернуть фокус окну - Форум программистов

Scooter

Дата 21.2.2009, 21:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 96
Регистрация: 13.10.2007

Репутация: нет
Всего: 1

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

Встала такая проблема. У меня форма 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 - 21.2.2009, 21:59

Scooter

Дата 22.2.2009, 09:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 96
Регистрация: 13.10.2007

Репутация: нет
Всего: 1

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

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

Это сообщение отредактировал(а) Scooter - 22.2.2009, 09:34

Rohoss

Дата 22.2.2009, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: 4
Всего: 18

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

--------------------

Файловый менеджер Explorer.Net скачать video

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »