[過去ﾛｸﾞ] 【初心者】課題をクリアしていくスレ【講習会】 (787ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

161: 名前は開発中のものです。 [] 04/06/26 23:49 ID:PaYEz6W8(1) AA×
>>319>>239


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
161: 名前は開発中のものです。 [] 04/06/26 23:49 ID:PaYEz6W8 キー入力、Delphiです TApplicationEventsとQD3のDDIDEX使ってます private Chara: TPoint; procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); begin DDIDEX1.Scan(DI_KEYB); Chara.X:=Chara.X+DDIDEX1.Stick.X; Chara.Y:=Chara.Y+DDIDEX1.Stick.Y; if (Chara.X<0) or (Chara.X>319) then begin Chara.X:=Chara.X-DDIDEX1.Stick.X; end; if (Chara.Y<0) or (Chara.Y>239) then begin Chara.Y:=Chara.Y-DDIDEX1.Stick.Y; end; Canvas.Brush.Color:=clBlack; Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight)); Canvas.Brush.Color:=clRed; Canvas.FillRect(Rect(Chara.X,Chara.Y,Chara.X+320,Chara.Y+240)); Sleep(5); Done:=False; end; procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered:=True; ClientWidth:=640; ClientHeight:=480; end; http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/161
キー入力です との使ってます

---

上下前次1-新書関写板覧索設栞歴

---

あと 626 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.048s