Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 134 • TDictionary Custom Sort 6 207 • Fast Watermark Sources 6 006 • 3D Designer 8 898 • Sik Screen Capture 6 342 • Patch Maker 6 761 • Айболит (remote control) 6 745 • ListBox Drag & Drop 5 617 • Доска для игры Реверси 96 137 • Графические эффекты 6 961 • Рисование по маске 6 230 • Перетаскивание изображений 5 133 • Canvas Drawing 5 502 • Рисование Луны 5 204 • Поворот изображения 4 753 • Рисование стержней 3 362 • Paint on Shape 2 609 • Генератор кроссвордов 3 503 • Головоломка Paletto 2 795 • Теорема Монжа об окружностях 3 603 • Пазл Numbrix 2 365 • Заборы и коммивояжеры 3 046 • Игра HIP 1 999 • Игра Go (Го) 1 923 • Симулятор лифта 2 281 • Программа укладки плитки 1 983 • Генератор лабиринта 2 439 • Проверка числового ввода 2 120 • HEX View 2 455 • Физический маятник 2 076

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Как подменить нажатия 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;

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

Похожие по теме исходники