掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.