MDI приложения и PageControl.... - Общие вопросы Delphi

maLoy*508 · 03.04.2008, 22:50

В обычном приложении PageControl, а именно TabSheets, переключаются между собой нажатием клавиш Ctrl+Tab, а в MDI приложениях так переключаться они уже не хотят...
А надо их как-то заставить это делать, может кто подскажет как??

Баламут · 04.04.2008, 01:24

Вот такой код помогает

Код:

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Shift = [ssCtrl]) and (Key = VK_TAB) then
PageControl1.SelectNextPage(true, true);
end;

Только не забудь у Form2 (наша MDI-форма) выставить KeyPreview := true.

maLoy*508 · 04.04.2008, 02:28

Благодарю...

03.04.2008, 22:50	#1
maLoy*508 Форумчанин Регистрация: 28.03.2008 Сообщений: 672	MDI приложения и PageControl.... В обычном приложении PageControl, а именно TabSheets, переключаются между собой нажатием клавиш Ctrl+Tab, а в MDI приложениях так переключаться они уже не хотят... А надо их как-то заставить это делать, может кто подскажет как?? блог

04.04.2008, 01:24	#2
Баламут Баламучу слегка... Участник клуба Регистрация: 01.11.2006 Сообщений: 1,585	Вот такой код помогает Код: `procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = [ssCtrl]) and (Key = VK_TAB) then PageControl1.SelectNextPage(true, true); end;` Только не забудь у Form2 (наша MDI-форма) выставить KeyPreview := true.

04.04.2008, 02:28	#3
maLoy*508 Форумчанин Регистрация: 28.03.2008 Сообщений: 672	Благодарю... блог

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Прозрачный PageControl	Nemez	Компоненты Delphi	7	23.07.2008 06:58
PageControl+WebBrowser	VenMaster	Компоненты Delphi	0	11.05.2008 23:20
При нажатии на кнопку добавить в PageControl	VenMaster	Компоненты Delphi	5	25.04.2008 01:41
Делаю сайты, пишу маленькие/большие скрипты. Пишу веб-приложения и приложения под Windows.	SkyM@n	Фриланс	3	29.12.2007 16:21
PageControl И StringGrid	Gorin	Компоненты Delphi	7	20.07.2007 18:15