掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
処理の流れを一時停止するには？ (ID:24586)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
例えば procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin Case Key of VK_Space: Timer1.Interval := 500; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin // NextImage を表示するコード end; これは連続して次から次へ表示する場合です。 一つ一つ手動で表示したいのなら（質問ではそう読める） TTimer は使用せず、Timer1.Interval := 500; の行の変わりに、次の画像を表示するコードを入れます。 TEdit 等のように優先的にフォーカスを取り込むコントロールがある場合には、 Form1.KeyPreview := true にして FormKeyUp を有効にします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.