Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как переключаться на дочернюю форму через Alt+Tab [D5, D6, D7]


AlexeyT ©   (2006-08-27 10:26:00) 

Создаю дочернюю форму так
with TFormView.Create(Self) do
 try
   Show;
 except
 end;


соответственно, как добавить форму в очередь переключения по Alt+Tab?


Ketmar   (2006-08-27 17:30:00) [1]

> [4] AlexeyT ©   (27.08.06 16:14)
угу.


AlexeyT   (2006-08-27 16:14:00) [2]


> хинт: для того, чтобы окошко считали "окном верхнего уровня"
> и позволялли на него "альттабнутся", оно должно иметь стиль
> WS_EX_APPWINDOW.


Вот! То, что нужно было.
Выставлять этот стиль надо в CreateParams, как я понимаю.


Ketmar   (2006-08-27 14:55:00) [3]

хинт: для того, чтобы окошко считали "окном верхнего уровня" и позволялли на него "альттабнутся", оно должно иметь стиль WS_EX_APPWINDOW.


PSPF2003   (2006-08-27 11:38:00) [4]

private
   procedure WMHotKey(var Mess : TWMHotKey); message WM_HOTKEY;

procedure TFastForm.FormCreate(Sender: TObject);
begin
 RegisterHotKey(Handle, 1, MOD_CONTROL, VK_F12) ;
end;

procedure TFastForm.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(Handle, 1) ;
end;

procedure TFastForm.WMHotKey(var Mess: TWMHotKey);
begin
 if not Mess.HotKey = 1 then Exit;
 FormView.Show
end;


PSPF2003   (2006-08-27 11:31:00) [5]


> добавить форму в очередь переключения

Это что?


Наверх

Титульная страница Поиск, карта сайта Написать письмо