OnKeyDownの処理 (ID:33800)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_RIGHT: begin FMyPtn.Cmd := cmdActive; //FMyPtn はクラス FMyPtn.Houkou := diRight; end; VK_LEFT: begin FMyPtn.Cmd := cmdActive; FMyPtn.Houkou := diLeft; end; VK_SPACE: GeigekidanOn( FMyPtn.X, FMyPtn.Y ); end; end; procedure TForm1.Timer1Timer(Sender: TObject); var i: Integer; begin UraGamen.Canvas.CopyRect( UraGamen.Canvas.ClipRect, Haikei.Canvas, UraGamen.Canvas.ClipRect ); if FMyPtn <> nil then FMyPtn.Move; //操作用キャラクタの移動処理 for i := 1 to GD_MAX do //迎撃弾の移動処理 if FGeigekidan[i] <> nil then FGeigekidan[i].Move; OmoteGamen.Canvas.CopyRect( OmoteGamen.Canvas.ClipRect, UraGamen.Canvas, OmoteGamen.Canvas.ClipRect ); // if (GetKeyState(VK_SPACE) < 0) then // GeigekidanOn( FMyPtn.X, FMyPtn.Y ); end;