Delphiゲームプログラミング相談室

[過去ﾛｸﾞ] Delphiゲームプログラミング相談室 (976ﾚｽ)
上下前次 1-新

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

197(1): 名前は開発中のものです。 [] 03/01/26 00:15 ID:apCviNTD(1/3) AAS
今、本を読みながらプログラムこぴぺしてるのですが、
勝手に動いてしまします。
一応→、6で右、←、４で左に動くのですが、開いた段階で、勝手に
左に動きます。
どこが悪いのでしょうか？
お願いします。教えてください。
外部ﾘﾝｸ[lzh]:forgamedev.zombie.jp

198(1): 名前は開発中のものです。 [sage] 03/01/26 00:21 ID:WeT+33QH(1) AAS
「プログラムこぴぺ」…。
ただのコピペだろ…。

199: 名前は開発中のものです。 [sage] 03/01/26 00:26 ID:apCviNTD(2/3) AAS
>>198
すいません。そうです。

200(1): 名前は開発中のものです。 [] 03/01/26 00:32 ID:EpQwOCcq(1) AAS
>>197
procedure TForm1.FormCreate(Sender: TObject);
に
Cmd := cmdStop;
が抜けてる

201: 名前は開発中のものです。 [sage] 03/01/26 00:39 ID:apCviNTD(3/3) AAS
>>200
ありがとうございました。
説明書にはのってなかった・・。
いいわけですね。すいません。
助かりました。感謝。

202(1): 名前は開発中のものです。 [] 03/01/27 23:40 ID:pOW+ueEO(1) AAS
今、
外部ﾘﾝｸ:www.text2music.com
のページの7の、whileを使ってじゃんけんゲームを作れって課題
やってんだけど、よくわかんない。

gotoで、グーんときはココとんでってのは感覚でわかるけど
whileで、繰り返しを使ってジャンケンってのがどうも…
繰り返しとジャンケンになんの繋がりがあるのかって

ヒントだけでも教えて。

203: 名前は開発中のものです。 [sage] 03/01/27 23:49 ID:6+/RegHW(1) AAS
ヒント：人に質問する時の言葉遣いに気を付ける

204(1): 名前は開発中のものです。 [sage] 03/01/28 00:16 ID:CTilELuz(1) AAS
>>202
たしかに、設問がちょっと適切ではない気がする。
じゃんけんそのものとは、関係ないな。

勝負続行」の部分を while で書き直して見ろ
という事ではないかと。

205: 名前は開発中のものです。 [sage] 03/01/28 00:34 ID:3W0Z4nNj(1) AAS
>>204
ですよね、ありがとうございます。

206(2): 名前は開発中のものです。 [] 03/01/28 14:29 ID:qikczq8T(1/3) AAS
サンプルを見ながら作っているのですが、
外部ﾘﾝｸ[lzh]:forgamedev.zombie.jp
の、ボタンをとって普通に表示するようにしようと思い、
外部ﾘﾝｸ[lzh]:forgamedev.zombie.jp
このようにしたのですが、エラーがでてしまいます。
ボタンなしで、ImageList1の絵を表示するにはどうすれば
いいのでしょうか。教えてください。お願いします。

207(1): 名前は開発中のものです。 [sage] 03/01/28 15:41 ID:SfR5sXZr(1) AAS
>>206
ImageListのOnChangeじゃなくて、FormのOnCreateで処理すべきかと

208(1): 名前は開発中のものです。 [sage] 03/01/28 15:59 ID:qikczq8T(2/3) AAS
>>207
ありがとうございました。
エラーでなくなりました。感謝です。

209(2): 名前は開発中のものです。 [sage] 03/01/28 16:16 ID:tWcxnn8A(1/2) AAS
>>206
TImageList の OnChange イベントによる
procedure TForm1.ImageList1Change(Sender: TObject);
でなく、
TForm の OnCreate イベントによる
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageList1.Draw(Image1.Canvas, 200, 180, 0);
Image1.Repaint;
end;
として描くようにすれば、いいと思うが。
OnChange は文字通り ImageList が描き替わったときに
起こるイベントだから。

210(1): 209 [sage] 03/01/28 16:19 ID:tWcxnn8A(2/2) AAS
>>208
書き遅れ、スマン。　リロードせんで、 207 さんの書き込みに
気付かなかったよ。

211: 名前は開発中のものです。 [sage] 03/01/28 16:27 ID:qikczq8T(3/3) AAS
>>209-210
詳しく教えてくれてありがとうございます。
英語を理解してないまま、やっていました。
単語くらい覚えないといけませんね。
感謝です。

212(13): 名前は開発中のものです。 [] 03/01/28 23:01 ID:ubzIY39v(1) AAS
また失敗作です。こんどは、Timerイベントのボタンがおせなくなりました。
外部ﾘﾝｸ[lzh]:forgamedev.zombie.jp
一応、書かないところは書かないで、書いていいところはかいたのですが・・
わかっていないので、すいませんが、どこを書いていいのか、
だめなのか、教えてください。お願いします。

213: 212 [] 03/01/28 23:05 ID:lk6AYDc1(1/2) AAS
>>212の、書かないところは、//メインフォームの宣言の
TForm1から、privateの上までと、interfaceのusesのところ、とか
書いていません。あとは、手打ちしました。
すいませんが教えてください。

214(5): 名前は開発中のものです。 [] 03/01/28 23:23 ID:BQ3p325a(1) AAS
>>212
書いてない所が多くてよくわからないが…。
とりあえず OnTimer イベントで呼び出すプロシージャ（ procedure ）
はチェックしてみました？

215: 212 [sage] 03/01/28 23:30 ID:lk6AYDc1(2/2) AAS
>>214
すいません。チェックしてみます。

216(1): 212 [sage] 03/01/28 23:44 ID:8P3sZRd0(1/2) AAS
>>214
一応、イベントのOnTimerのボタンを押すとでてくるのですが・・。
ＴＦorm1 = class(TForm)の中に・・
そのあとの、
procedure　TForm1.Timer1Timer(sender:TObject);
begin
end;
が出てこないのです・・。

217(1): 212 [sage] 03/01/28 23:46 ID:8P3sZRd0(2/2) AAS
すいませんが、Ｐｕｂｌｉｃの宣言は自動表示なのでしょうか？
そこも自分で書いています・・。

218(1): 214 [] 03/01/29 00:14 ID:3aoZMSb3(1/3) AAS
>>216
>>212 のソースだと、コントロール "Timer1" が呼び出すプロシージャが
判らないっす。
左の”オブジェクトインスペクタ”の”イベント”で Timer1 の OnTimer
イベントが何呼び出してるか確認してみて。

219(1): 212 [sage] 03/01/29 00:43 ID:5jmVJA0U(1/3) AAS
>>218
エラーがでてしまいます。
メゾットＴｉｍｅｒ１Ｔｉｍａｒ　実現部が見つかりません。
と出ています・・。
プログラムミスでしょうか・・。

220: 212 [sage] 03/01/29 00:53 ID:5jmVJA0U(2/3) AAS
Ｐｒｏｃｅｄｕｒｅ　Ｔｉｍｅｒ１Ｔｉｍｅｒ（Ｓｅｎｄｅｒ：　ＴＯｂｊｅｃｔ）；
を消してやってみると、

メゾットＴｉｍｅｒ１Ｔｉｍａｒ　を追加すべき場所が見つかりません。”ＥＮＤ”
または、ＩＮＩＴＩＡＬＩＺＡＴＩＯＮがユニットソースから見つけられませんでした。

と、でてしまいます・・。
やっぱり表示ミスですかね・・？

221(2): 214 [] 03/01/29 00:59 ID:3aoZMSb3(2/3) AAS
>>219
あー、それはエラーメッセージ通り、呼び出すプロシージャ自身が
無いか、宣言されていない、もしくはプロシージャ名を間違えている
のでは、と。

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

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

ぬこの手ぬこTOP 0.026s