処理の流れを一時停止するには？ (ID:24589)

名前

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

本文

> 未だ解決せず悪戦苦闘しています。
戦闘場所がどこか不明ですが、単純なコード例を示します。（Delphi3)
これにいろいろ加えていくとどこかで実現しなくなるのでしょう。
そこが本当の戦闘地域です。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
  private
    FileList: TStringList;
    CurrentID: Integer;
  public
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileList := TStringList.Create;
//  KeyPreview := true;     // 必要に応じ
  FileList.Add('000.bmp');
  FileList.Add('001.bmp');
  FileList.Add('002.bmp');
  CurrentID := 0;   // 必要ないが
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FileList.Free;
end;

procedure TForm1.FormKeyUp(Sender: TObject;
                           var Key: Word;
                           Shift: TShiftState);
begin
  Case Key of
    VK_Space:
      begin
        Image1.Picture.LoadFromFile(FileList[CurrentID]);

Inc(CurrentID);
        if CurrentID = FileList.Count then  CurrentID := 0;
      end;
  end;
end;

end.

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

戻る