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

名前

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

本文

> 「ぱっぱっとファイルを切り替えるだけじゃないか」と軽く考えていました
  スライドショーに関して言えば、そう軽く考えていただいて結構です。

ShellTreeView を使った事がないのですが、試してみました。
  Button1 をクリックすると MainPath に、現在選択されているフォルダが得られます。(Delphi7)

unit Unit3;

interface

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

type
  TForm1 = class(TForm)
    ShellTreeView1: TShellTreeView;
    Image1: TImage;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    FileList: TStringList;
    CurrentID: Integer;
    MainPath: String;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileList := TStringList.Create;
  KeyPreview := true;     // 必要に応じ
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;
        Key := 0;  // Button1.Click を無効にする
      end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MainPath := ShellTreeView1.Path + '\';
  // MainPath とFindFirst,Nextを使ってFileListにファイル名を
  // リストアップしたとする
  FileList.Add('000.bmp');
  FileList.Add('001.bmp');
  FileList.Add('002.bmp');

end;

end.

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

戻る