[過去ログ]
Delphiゲームプログラミング相談室 (976レス)
Delphiゲームプログラミング相談室 http://echo.5ch.net/test/read.cgi/gamedev/1006249204/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
286: 名前は開発中のものです。 [sage] 03/05/20 02:17 ID:zL9Q18du >>285 sleep() でウェイトをかましているからでは。 WINのタスクを独り占めして文字通り眠ったようになりますから。 タイマーとカウンタを使うのはどうでしょう? TForm1.FormCreate の所で cnt を 1 に設定しておいてから、 procedure TForm1.Timer1Timer(Sender: TObject); begin image1.Picture.LoadFromFile('C:\00' + IntToStr(cnt) + '.bmp'); BitBlt(image2.Canvas.Handle,0,0,37,75,image1.Canvas.Handle,0,0,SRCCOPY); image2.Repaint; Inc(cnt); if cnt>6 then cnt:=1; end; というのは如何でしょう? あと、 bmp ファイルは最初にまとめて ImageList へ読み込ませては? http://echo.5ch.net/test/read.cgi/gamedev/1006249204/286
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 690 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.021s