ズブの初心者がゲーム作れるまで勉強するスレ

[0001 名無しさん＠お腹いっぱい。 01/11/07 20:26 ID:PFtlmWD9]

【参加資格】
ズブの初心者以外お断りです。

なおアドバイス等はプロのかたでも結構です。
初心者は聞く耳を持ちプロもわかりやすく教えてやってください。

[0060 名無しさん＠お腹いっぱい。 01/11/16 09:45 ID:dc03umab]

>>59
そこからかい（ｗ
OnKeyDown でキーコード(引数key?)拾って、Image1.left++;みたいな。

[0061 名無しさん＠お腹いっぱい。 01/11/16 09:51 ID:QGZlYshc]

>>59
こんな感じでどう？
かっこの中にいれるのは「仮想キーコード」でヘルプ探せばすぐでてくる。

procedure TForm1.Timer1Timer(Sender: TObject);
var
speed: integer;
begin
speed:=8;
if GetKeyState( VK_LEFT ) < 0 then image1.Left := image1.Left-speed;
if GetKeyState( VK_RIGHT ) < 0 then image1.Left := image1.Left+speed;
if GetKeyState( VK_UP ) < 0 then image1.top := image1.top-speed;
if GetKeyState( VK_DOWN ) < 0 then image1.top := image1.top+speed;
end;

end.