И ещё раз привет всем.
Помогите PLZZZ - на MDi-форме есть куча окошек (TEdit), у каждого из которых есть свой TAB ORDER. Однако перейти по нажатию TAB с одного окна на другое не получается - просто не работает.
Пишу обработчик нажатия клавиши TAB - типа

Код

if Key=VK_TAB then Edit2.SetFocus;

Тот же результат.
Как заставить сработать метод SetFocus?

А зачем SetFocus?

ActiveControl := Edit2 ;

По-моему проще и работает

Попробовал - не работает.
Не хочет переходить по TAB'у - хоть руками прописывай, хоть по умолчанию оставляй.

А у этого Edit2 случайно TabStop<>False?

Пробовал и True и False - результат тот же.
Это, наверное, какой-то глюк MDI-окон.

SendMessage(Edit2.Handle, WM_SETFOCUS, 0,0);

Не должно такого быть.
Наваял простенкий MDI Application, натыкал целую кучу контролов и ...
все по Tab'у прыгает и туда и обратно.
Попробуй пересоздать форму по новой. У меня, при похожих глюках
этот вариант как правило спасал.

проверил SetFocus() -- рботает без проблем --> ошибка в другом месте

ты KeyPreview установил?

Во вот так должно работать (МиниЛовушка)

Код

var  Form1: TForm1;  hook: HHook; implementation {$R *.dfm} Function hooks(Code:Integer;wParam,lParam:longint):longint; StdCall; var c:array[0..255] of char;    nScan:integer;    boo,Sh:boolean; begin   if                                              // ( (code>=0)and(teventmsg(pointer(lparam)^).message=wm_keydown) )   or                                                 {; Не поверите Alt c неких пор сталsyske'eм} ( (code>=0) and (teventmsg(pointer(lparam)^).message=wm_syskeydown) )   then     begin     nScan:=hibyte((teventmsg(pointer(lparam)^).paramL));     nscan:=nscan shl 16;     end;      GetKeyNameText(nScan,c,256);      if 'tab'=LowerCase(c) then SendMessage(Edit2.Handle,WM_SETFOCUS,0,0); end; procedure TForm1.FormCreate(Sender: TObject); begin hook:=SetWindowsHookEx(WH_JOURNALRECORD,@hooks,hInstance,0); end;

Зачем так сложно , RAdmin.
Вопрос в том, чтобы по Tab'у поменять Control (насколько я понял).
В принцыпе все варианты рабочие и зачем городить огород?
Serggggg, сделай новую форму и все пройдёт.
Вспомни старый анекдот: "Может выйдем, зайдем она и поедет?".

Для кого ты пишешь обработчик нажатия? Для формы или контрола? Если для формы, то как тут уже сказали, ставь KeyPreview в True

Новую форму создавал. Форма создается (просходит Create(Application)) в своем unit'е. Форма создаётся в DLL - может быть проблемы из-за этого. Тот же результат.
Пробовал KeyPreview менять - тот же результат. Только мышкой щелкать надо.
Пробовал и SendMessage(Edit2.Handle, WM_SETFOCUS, 0,0); - результат=0;
Проклятие какое-то.

Да. Проблема в DLL - я создаю простенькое окошко MDI в библиотеке - TAB не пашет. Точно такое же окно MDI в EXE-модуле - все работает, как часы - TAB работает, как и должен - по умолчанию.
Как быть?

еще раз спрашиваю ты KeyPreview для формы установил?

Цитата(_vova_ @ 18.6.2004, 23:20)

Зачем так сложно , RAdmin. Вопрос в том, чтобы по Tab'у поменять Control (насколько я понял). В принцыпе все варианты рабочие и зачем городить огород? Serggggg, сделай новую форму и все пройдёт. Вспомни старый анекдот: "Может выйдем, зайдем она и поедет?".

Зато 100% , и можно работать с формой каторыя скрыта или не в фокусе.

_hunter, установил конечно. Form1.KeyPreview установлен в True - не пашет. Form1.KeyPreview установлен в False - не пашет.
RAdmin, а если на форме порядка 15 контролов, как в моём случае? И каждому по TAB'у надо передать управление.
Здесь что-то принципиальное, не могу въехать - что именно. MDI-форма, созданная внутри динамически подгружаемой DLL, рубит на корню все переходы по TAB'у. А та же форма (MDIChild) с теми же параметрами и свойствами, созданная в exe-шнике, работает вполне нормально - TAB отлично работает и без обработчиков нажатия кнопок. Может при Create формы ей надо какие-то ещё параметры указать?

Наткнулся на ещё более интересную деталь - допустим, в главной программе создаётся MDI-окно с 4-мя Edit'ами. Переход по Tab'у возможен только в порядке TabOrder.
Метод SetFocus или SendMessage() не работают. Почему?

проверь, ты нажатие Tab ловиш?
поставь OnKeyDown и фильтр

Цитата(Serggggg @ 19.6.2004, 10:39)

Наткнулся на ещё более интересную деталь - допустим, в главной программе создаётся MDI-окно с 4-мя Edit'ами. Переход по Tab'у возможен только в порядке TabOrder. Метод SetFocus или SendMessage() не работают. Почему?

А ты попробуй эти Методы фызывать не из обработчика OnKeyPress а из контрола типа Бутон (Для теста, просто мне кажется что у тебя обработчик ослеп)

Цитата

RAdmin, а если на форме порядка 15 контролов, как в моём случае? И каждому по TAB'у надо передать управление.

Ну если ты используешь мой пример (и он у тебя работает) и у тебя 15 контролов то
подработай код малость:

Код

if 'tab'=LowerCase(c) then    begin       if Edit1.Selected then SendMessage(Edit2.Handle,WM_SETFOCUS,0,0);       if Edit2.Selected then SendMessage(Edit3.Handle,WM_SETFOCUS,0,0);            и тд.........   end;

_hunter, так и есть - не хочет обрабатывать нажатие TAB. Нажимаю TAB в нужном окошке - ShowMessage не показывается. Меняю на ENTER, INSERT - все работает.
И в программе, и в DLL. Т.е. программа тупо не замечает нажатия TAB.
Как быть?

P.S. Использовался обработчик OnKeyDown

для начала попробуй отключить TabStop у Edit' ов
если не поможет -- запускай WinSight и смотри куда идут клавиатурные сообщения, особенно TAB

Отключал - не помогло.
Запускал WinSight - Log прислать не могу - не сохраняется. Скажу так - и у клавиши INSERT (для примера), и у TAB в обработчике есть ShowMessage - при нажатии INSERT WinSight прописывает 11 строчек, при TAB'е - 3.
При нажатии TAB:

WM_KEYDOWN Dispatched 09h 9d VK_TAB Scan 0Fh Down
WM_KEYUP Dispatched 09h 9d VK_TAB Scan 0Fh Up
WM_KILLFOCUS Sent Focus to hwnd 00000000

а теперь расшифровка:
окно 09h 9d забрало себе ( Dispatched ) сообщение о нажтии TAB и соответственно фокус стал на 00000000
так что ищи что за оно забирает сообщения

Глупый вопрос, но не могу понять, как именно использовать WinSight. Перестали появляться сообщения внизу. Делаю Start/Stop, а результата не вижу.

странно, все перепробывал -- воспроизвести такое не смог

у тебя винда какая?

2000 Server Service Pack 4

попробуй в Messages поставить All Windows
а в Messages->Processes...->All processes
если не поможет -- переставляй винды

_hunter, я уже не вижу выхода. Отказаться от DLL, наверное, надо. Слишком большие проблемы. Всем спасибо за участие.

выход есть: поставить хук и в нем пересылать сообщеня дальше

а если можно отказаться от DLL -- отказывайся ибо всегда нужно делать проще ( KISS )

_hunter, я уже пробовал поставить хук, который прислал RAdmin - прога вообще намертво систему завесила.
Так что пойдём по пути наименьшего сопротивления.

Вот универсальный код "пробега" по реквизитам:

Код

if Key = VK_UP then    SelectNext(Sender as TWinControl,false,true);  if (Key = VK_DOWN) or (Key = VK_TAB) or (Key = VK_RETURN)  then    SelectNext(Sender as TWinControl,true,true);