Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];

Вниз

Как двигать объект стрелками клавиатуры?   Найти похожие ветки 

← →
Вася Пупкин   (2002-04-06 01:20) [7]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
VK_LEFT:Panel1.Left:=Panel1.Left-10;
VK_RIGHT:Panel1.Left:=Panel1.Left+10;
VK_UP:Panel1.Top:=Panel1.Top-10;
VK_DOWN:Panel1.Top:=Panel1.Top+10;
end;
end;

Только если на форме есть компоненты со свойством TabStop (Button например), надо им всем установить TabStop:=False;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c