Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Как подменить нажатия ENTER на нажатия TAB 5



procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 begin
   SelectNext(Sender as TWinControl, True, True);
   Key := #0;
 end;
end;

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011