Двигаем TPanel по форме

[Жигилий_Ульяна]

Согласно заданию мне необходимо раздвигать панельку по форме, прописываю:

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Left:=Panel1.Left-5;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Panel1.Left:=Panel1.Left+5;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Panel1.Top:=Panel1.Top-5;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Panel1.Top:=Panel1.Top+5;
end;

Все работает, панель скачет по форме, но вот со второй частью задания возникли определеные трудности: необходимо раздвигать панель с помощью клавиш курсора на клавиатуре, прописала:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#25 then
Panel1.Left:=Panel1.Left-5;

if Key=#26 then
Panel1.Left:=Panel1.Left+5;

if Key=#27 then
Panel1.Top:=Panel1.Top-5;

if Key=#28 then
Panel1.Top:=Panel1.Top+5;
end;

И полный игнор... Панель никоим образом не реагирует на мои попытки ее подвинуть.
Подскажите, пожалуйста, что я сделала не так?

[mihali4]

А Form1.KeyPreview = True ?

[Жигилий_Ульяна]

Ну да, конечно True, а вот толку от этого ноль

[shosse]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=vk_left then Panel1.Left:=Panel1.Left-5;

if Key=VK_RIGHT then Panel1.Left:=Panel1.Left+5;

if Key=VK_UP then Panel1.Top:=Panel1.Top-5;

if Key=VK_DOWN then Panel1.Top:=Panel1.Top+5;
end;

Вот так будет работать.

[weosdfl34]

That has increased the ire of several players. "Games are supposed to be tests of science," said added player in a ZDNN TalkBack. "You shouldn't wow gold be healthy to just buy your way to the top." At minimal one ZDNN reader, yet, has get out in vantage of the online properties job.