Sleepの動作について (ID:13718)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

みなさん，いろいろな回答ありがとうございます．
Refresh，Update共に試してみましたが，だめでした．

> BMP1,BMP2,BMP3が同じ画像、というオチはないですよね＾＾；
これは，一番最初にチェックしたので大丈夫です．

もしかしたら，プログラムの他の部分でミスがあるのでしょうか．
以下がプログラムの全文です．

interface
uses
  Windows, Messages, SysUtils, Classes,
  Graphics, Forms, ExtCtrls, Controls;
type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
var
 BMP1,BMP2,BMP3 : TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.DoubleBuffered:=true;
 BMP1:=TBitmap.Create;
 BMP2:=TBitmap.Create;
 BMP3:=TBitmap.Create;
 BMP1.LoadFromFile('bmp01.bmp');
 BMP2.LoadFromFile('bmp02.bmp');
 BMP3.LoadFromFile('bmp03.bmp');

Image1.Canvas.Draw(0,0,BMP1);
 Image1.Refresh;
 sleep(500);
 Image1.Canvas.Draw(0,0,BMP2);
 Image1.Refresh;
 sleep(500);
 Image1.Canvas.Draw(0,0,BMP3);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 BMP1.Free;
 BMP2.Free;
 BMP3.Free;
end;
end.

←解決時は質問者本人がここをチェックしてください。

戻る