Использование Enter как Tab в TDBGrid

Previous  Top  Next

    
 

 

Приведу код, позволяющий использовать нажатие клавиши Enter как клавиши Tab пока управление находится в табличной сетке.

 

Данный код включает обработку клавиши Enter для всего приложения, включая поля и пр.. Код для работы с компонентом DBGrid заключен в блок ELSE. Приведенный код не имитирует поведение клавиши Tab, связанное с переходом на следующую запись когда курсор достигает последней колонки табличной сетки, в нашем случае он перемещается на первую колонку.

Code:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

{ Это обработчик события OnKeyPress для ФОРМЫ! }

{ Вы должны также установить свойство формы KeyPreview в True }

begin

if Key = #13 then { если это клавиша Enter }

   if not (ActiveControl is TDBGrid) then

   begin { если не на TDBGrid }

     Key := #0; { гасим клавишу Enter }

     Perform(WM_NEXTDLGCTL, 0, 0);

       { перемещаемя на следующий элемент управления }

   end

   else if (ActiveControl is TDBGrid) then { если это TDBGrid }

     with TDBGrid(ActiveControl) do

       if selectedindex < (fieldcount - 1) then { увеличиваем поле }

         selectedindex := selectedindex + 1

       else

         selectedindex := 0;

end;

 

 

©Drkb::03076

       

Взято с http://delphiworld.narod.ru