Передвижение формы

@MursikSix · Регистрация: 03.10.2016

Author24 — интернет-сервис помощи студентам

Как сделать передвижение формы, когда картинка достигала,какой-то координаты, форма двигалась. Я написал код, но ничего не работает.

Delphi

1 2	//if (key=68) and (xmario>496) then // Form1.Width:=Form1.width+10;

@Puporev · 05.06.2017, 11:33

А свойство формы keyprewiev выставили в true?

@MursikSix · 05.06.2017, 12:10 **[ТС]**

Пополнил код, но ничего не изменилось

Delphi

if (key=68) and (xmario>496) then
  begin
     Form1.Width:=Form1.width+10;
     keypreview:=true;
 
  end;

@Zombi_sib · 05.06.2017, 12:28

на сколько я знаю:
1. OnKeyDown - вызывается, когда на клавиатуре нажимается любая клавиша. OnKeyUp - вызывается, когда любая клавиша на клавиатуре отпускается. OnKeyPress - вызывается, когда нажимается клавиша, отвечающая за определённый ASCII символ.

2. События OnKeyDown и OnKeyUp обеспечивают самый низкий уровень ответа клавиатуры. Обработчики OnKeyDown и OnKeyUp могут реагировать на все клавиши клавиатуры, включая функциональные и комбинации с клавишами Shift, Alt, и Ctrl.

События клавиатуры - не взаимоисключающие. Когда пользователь нажимает клавишу, то генерируются два события OnKeyDown и OnKeyPress, а когда отпускает, то только одно: OnKeyUp. Если пользователь нажмёт одну из клавиш, которую OnKeyPress не сможет определить, то будет сгенерировано только одно событие OnKeyDown, а при отпускании OnKeyUp

так как курсорные клавиши не имеют символьного представления то и события не будет сгенерировано.

@Puporev · 05.06.2017, 12:52

Вот такое нормально работает

Delphi

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=68 then
  begin
     Form1.Width:=Form1.width+10;
     keypreview:=true;
  end;
end;

Значит у Вас проблема с

Delphi

1	(xmario>496)

@MursikSix · 05.06.2017, 13:33 **[ТС]**

Хм, ничего не выходит xmario(это картинка по x), когда она достигает этой координаты 476, форма должна расширяться.

@krapotkin · 05.06.2017, 13:55

поэтому в играх не пользуются событиями клавиш, а в таймере считывают состояние интересующих клавиш через GetAsyncKeyState или GetKeyboardState

А еще обращаться к Form1 в методе TForm1 - нехорошая ошибка

@MursikSix · 05.06.2017, 14:25 **[ТС]**

Через них всё будет работать?

@krapotkin · 05.06.2017, 15:52

"через них" вы будете иметь информацию о состоянии клавиатуры
а будет "работать" или нет, это от кода зависит

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.06.2017, 11:33	2
	А свойство формы keyprewiev выставили в true? 0

@Zombi_sib 379 / 332 / 89 Регистрация: 26.05.2010 Сообщений: 750
	05.06.2017, 12:28	4
	на сколько я знаю: 1. OnKeyDown - вызывается, когда на клавиатуре нажимается любая клавиша. OnKeyUp - вызывается, когда любая клавиша на клавиатуре отпускается. OnKeyPress - вызывается, когда нажимается клавиша, отвечающая за определённый ASCII символ. 2. События OnKeyDown и OnKeyUp обеспечивают самый низкий уровень ответа клавиатуры. Обработчики OnKeyDown и OnKeyUp могут реагировать на все клавиши клавиатуры, включая функциональные и комбинации с клавишами Shift, Alt, и Ctrl. События клавиатуры - не взаимоисключающие. Когда пользователь нажимает клавишу, то генерируются два события OnKeyDown и OnKeyPress, а когда отпускает, то только одно: OnKeyUp. Если пользователь нажмёт одну из клавиш, которую OnKeyPress не сможет определить, то будет сгенерировано только одно событие OnKeyDown, а при отпускании OnKeyUp так как курсорные клавиши не имеют символьного представления то и события не будет сгенерировано. 0

@MursikSix 0 / 0 / 0 Регистрация: 03.10.2016 Сообщений: 47
	05.06.2017, 13:33 [ТС]	6
	Хм, ничего не выходит xmario(это картинка по x), когда она достигает этой координаты 476, форма должна расширяться. 0

@krapotkin 5860 / 4588 / 1448 Регистрация: 14.04.2014 Сообщений: 20,357 Записей в блоге: 20
	05.06.2017, 13:55	7
	поэтому в играх не пользуются событиями клавиш, а в таймере считывают состояние интересующих клавиш через GetAsyncKeyState или GetKeyboardState А еще обращаться к Form1 в методе TForm1 - нехорошая ошибка 0

@MursikSix 0 / 0 / 0 Регистрация: 03.10.2016 Сообщений: 47
	05.06.2017, 14:25 [ТС]	8
	Через них всё будет работать? 0

@krapotkin 5860 / 4588 / 1448 Регистрация: 14.04.2014 Сообщений: 20,357 Записей в блоге: 20
	05.06.2017, 15:52	9
	"через них" вы будете иметь информацию о состоянии клавиатуры а будет "работать" или нет, это от кода зависит 0

Передвижение формы

Решение