Показать сообщение отдельно
  (#3 (permalink)) Старый
SH@DOW SH@DOW вне форума
Member
 
Сообщений: 2,085
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.09.2002
По умолчанию 27.02.2003, 12:05

На событии OnKeyDown вешаешь:

case Key of
37: Form1.Left:= Form1.Left-2; {Где 2 -- шаг перемещения, а 37 - влева клавиша}
38: Form1.Top:= Form1.Top-2;
39: Form1.Left:= Form1.Left+2;
40: Form1.Top:= Form1.Top+2;
end;

И все дела!
Ответить с цитированием
Ads