Замена MainLoop, кнопка TAB не работает

@Kukstyler · Регистрация: 02.04.2009

Здравствуйте. Речь идёт о компиляторе на другом языке, где все функции связанные с GUI проживают в разных DLL-ках Run-Time. Но возможности данного компилятора невелики, поэтому я решил добавлять небольшой тюнинг в проекты.

Конкретный пример: я создаю ListView динамически, но у меня нет доступа к сообщениям о событиях связанных с ним. Поэтому я посылаю сообщение о завершении MainLoop к которому у меня нет доступа, и сразу после запускаю собственный MainLoop (код на Коболе):

Visual Basic

     CALL CLOSESHEET OF SHEET1
     
     PERFORM UNTIL message = WM-DESTROY                                        
         CALL "GetMessageA"      WITH STDCALL USING BY REFERENCE MSG BY VALUE 0 0 0 
         CALL "IsDialogMessageA" WITH STDCALL USING BY VALUE GLB-HWND 
                                                    BY REFERENCE MSG
         
         IF  PROGRAM-STATUS = 0
             CALL "TranslateMessage" WITH STDCALL USING BY REFERENCE MSG           
             CALL "DispatchMessageA" WITH STDCALL USING BY REFERENCE MSG          
                                                                                   
             IF  HWND NOT = 0 AND = HLISTVW1             
                 EVALUATE message
                 ...

Не знаю, правильна ли мысль, но вроде всё получается и работает так как мне нужно, кроме кнопки TAB. Она просто не работает, как будто у всех контролов отключена опция "TabStop".

В чём может быть причина? Заранее благодарю за ответы.

@Kukstyler · 16.06.2016, 13:13 **[ТС]**

Ни у кого нет хотя бы каких-либо предположений?

@Kukstyler display "I'LL BE BACK" 1191 / 818 / 250 Регистрация: 02.04.2009 Сообщений: 3,046
	16.06.2016, 13:13 [ТС]	2
	Ни у кого нет хотя бы каких-либо предположений? 0

Опции темы