В целом как я и писал нужно по onClick
запоминаем элемент, по FormKeyUp
перемещаем его.
Для формы устанавливаем свойство KeyPreview = True
. Для того чтобы события нажатия клавиш сперва пересылались форме, а потом управляемому компоненту.
Немного кода:
Подключаем модули, если их нет для кнопки, картинки и Generic списка.
uses
...ExtCtrls, StdCtrls, Generics.Collections;
Определяем тип TMoveDirection
с направлением движения:
type
TMoveDirection = (mdUp, mdDown, mdLeft, mdRight);
TMainForm = class(TForm)
...
private
FImages : TObjectList<TImage>; //Список с картинками
FLastSelected : TImage; //Последний выделенный элемент
procedure ImageClickEvent(Sender: TObject);
procedure Move(ADirection: TMoveDirection; AControl: TControl);
end;
...
implementation
Процедура перемещения Control'a с указанием направления
procedure TMainForm.Move(ADirection : TMoveDirection; AControl : TControl);
const
Step = 5;
begin
if not Assigned(AControl) Then
exit;
case ADirection of
mdUp: AControl.Top := AControl.Top - Step;
mdDown: AControl.Top := AControl.Top + Step;
mdLeft: AControl.Left := AControl.Left - Step;
mdRight: AControl.Left := AControl.Left + Step;
end;
end;
Событие ImageClickEvent которое отрабатывает при клике мышкой
procedure TMainForm.ImageClickEvent(Sender: TObject);
begin
if Sender is TImage then
begin
FLastSelected := (Sender as TImage);
end;
end;
Мой алгоритм создания и построения элементов. Кстати img.Picture.Bitmap.LoadFromFile('ball_blue.bmp');
служит для отображения картинки в TImage
. Никакой нагрузки не несет.
procedure TMainForm.btnBuildClick(Sender: TObject);
var
img : TImage;
I: Integer;
LeftPos : Integer;
const
LeftIdent = 10;
TopIdent = 40;
ImageSize = 64;
MaxImageCount = 5;
begin
FImages.Clear;
// Создание MaxImageCount элементов
for I := 0 to MaxImageCount do
begin
img := TImage.Create(Nil);
img.Height := ImageSize;
img.Width := ImageSize;
img.OnClick := ImageClickEvent;
img.Picture.Bitmap.LoadFromFile('ball_blue.bmp');
FImages.Add(img);
end;
//Построение на форме
LeftPos := LeftIdent;
for I := 0 to FImages.Count - 1 do
begin
LeftPos := img.Width * I + LeftIdent * I;
img := FImages.Items[I];
img.Left := LeftPos;
img.Top := TopIdent;
img.Parent := Self;
end;
end;
Событие FormKeyUp
, которое отрабатывает при клике любой клавишей (Не забываем об KeyPreview = True
для формы).
procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_UP then
Move(mdUp, FLastSelected)
else
if Key = VK_DOWN then
Move(mdDown, FLastSelected)
else
if Key = VK_LEFT then
Move(mdLeft, FLastSelected)
else
if Key = VK_RIGHT then
Move(mdRight, FLastSelected)
end;
Создание и уничтожение списка с созданными объектами.
procedure TMainForm.FormCreate(Sender: TObject);
begin
FImages := TObjectList<TImage>.Create;
end;
procedure TMainForm.FormDestroy(Sender: TObject);
begin
FreeAndNil(FImages);
end;
Код ни на что не претендует, простая реализация задачи. Создавайте отдельные классы, не используйте глобальные переменные....
Придет время и я сделаю заметку на эту тему у себя в блоге