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





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



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then
  begin
    Perform(WM_NEXTDLGCTL,0,0);
    key:= #0;
  end;
end;

           




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

Copyright © LSD Software 2006 - 2011