キー操作でイメージを上下左右に移動させる



「↓」「↑」「←」「→」キーでimage1を移動します。
下記の図はそのサンプルです。



■ソースは下記のようになります。

■キー操作でイメージを上下左右に移動させる処理
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

　Case key of
　　//→キーを押した時
　　VK_RIGHT : Image1.Left :=Image1.Left + 100 ;
　　//←キーを押した時
　　VK_LEFT : Image1.Left :=Image1.Left - 100 ;
　　//↑キーを押した時
　　VK_UP : Image1.Top :=Image1.Top -100 ;
　　//↓キーを押した時
　　VK_DOWN : Image1.Top :=Image1.Top +100 ;
　end;

end;



Delphi　Tipsのページへ



ホーム