Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Система \ Клавиши \ Работа клавиши Enter как Tab

Работа клавиши Enter как Tab

{ 
  This code gives the  key the same habbit as the key to 
  change focus between Controls. 

  Mit diesem Code kann man sich mit der Enter Taste zwischen mehreren 
  Textfeldern bewegen.(anstatt nur mit der Tabulatortaste) 
}

 // Form1.KeyPreview := True ! 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then
   begin
     Key := #0;
     { check if SHIFT - Key is pressed }
     if GetKeyState(VK_Shift) and $8000 <> 0 then
       PostMessage(Handle, WM_NEXTDLGCTL, 1, 0)
     else
       PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
   end;
 end;

Название: Работа клавиши Enter как Tab
Дата публикации: 2004-06-17 (2816 Прочтено)

 
 

 

Page generation 0.032 seconds