Отправлено: 11.09.06 13:40. Заголовок: TSBrowse: Edit только по ENTER

Хочу сделать в TSBrowse редактирование только по нажатию ENTER или DBLCLICK,
для этого делаю блок кода:

oBrw:bUserKeys := { |nKey,nFlags,oBrw| if(nKey>30 .and. nKey<255,.F.,nKey) }

в результате TSBrowse:KeyDown() должна выдать ::nLastKey=255

Но этого не получается. Докопал до прерываний Windows -
после KeyDown ::nLastKey=255, а при входе в TSBrowse:KeyChar() ::nLastKey=0

Вставляю новую переменную класса ::Cargo
В TSBrowse:KeyDown() ::nLastKey := 255 поменял на
::nLastKey := Cargo := 255
В TSBrowse:KeyChar():
Default ::nLastKey := nKey -> Default ::nLastKey := nKey, ::Cargo := nKey

If ::nLastKey == 255 -> If ::nLastKey == 255 .or. ::Cargo == 255

После этого моя задача заработала.
Просьба вставить этот блок в новую версию или проверить -
где переназначает ::nLastKey := 0 или может есть вообще другой путь
решения.

 Отправлено: 11.09.06 14:50. Заголовок: Re:

Олег! Спасибо - нет предела совершенству