Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / не могу вернуться в приложение по Alt Tab / 2 сообщений из 2, страница 1 из 1
19.07.2021, 02:16
    #40084549
yemets63
yemets63
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу вернуться в приложение по Alt Tab
я что то подобно спрашивал возможно, и вопрос не разрешил до сих пор.
и в разных версиях это работает по разному, и так, после загрузки формы в панель, если я ухожу из приложения, то в операционке Windows 10 я не могу вернуться в приложение по Alt+Tab

код после которого Alt+Tab для возврата в приложение не срабатывает

Код: pascal
1.
2.
3.
    windows.SetParent(Form.Handle, PanelIn.Handle);
    windows.SetWindowPos(Form.Handle, HWND_TOP, 0, 0, PanelIn.Width, PanelIn.Height,  SWP_SHOWWINDOW);
    windows.SetFocus(Form.Handle);



приходиться сворачивать или минимизировать другие приложениЯ до тех пор пока не будет доступно это.
я пробовал устанавливать фокус на главную форму, и так далее, но результат тот же, как только я разрушаю Form , все работает.

у кого какие мысли чтобы Alt+Tab работал на переход моего приложения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.07.2021, 03:28
    #40084553
softwarer
softwarer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу вернуться в приложение по Alt Tab
yemets63
у кого какие мысли

Извращаться не надо. Вот только что проверил: после первой кнопки Alt-Tab не работает, после второй - работает.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
procedure TForm17.Button1Click(Sender: TObject);
var F: TForm;
begin
  if Panel.ControlCount > 0 then Panel.Controls[0].Free;
  F := TForm.Create(Self);
  F.Color := clYellow;
  Winapi.Windows.SetParent(F.Handle, Panel.Handle);
  Winapi.Windows.SetWindowPos(F.Handle, HWND_TOP, 0, 0, Panel.Width, Panel.Height,  SWP_SHOWWINDOW);
  Winapi.Windows.SetFocus(F.Handle);
end;

procedure TForm17.Button2Click(Sender: TObject);
var F: TForm;
begin
  if Panel.ControlCount > 0 then Panel.Controls[0].Free;
  F := TForm.Create(Self);
  F.Color := clLime;
  F.Parent := Panel;
  F.Align := alClient;
  F.Show;
  F.SetFocus;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / не могу вернуться в приложение по Alt Tab / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]