1

次の YouTube ビデオhttp://www.youtube.com/watch?v=ePuCsvwoHMoの助けを借りて、ZERO Delphi エクスペリエンスでボタンをクリックすると進行状況バーが移動 (進行) するようにしたいと思います。

私はグーグル検索とスタックオーバーフローの過去の同様の質問に基づいて試していますが、運がありません。この 1 行 (または最大 2 行) のコードはどのように表示され、どこに入力すればよいでしょうか?

最初の質問とは関係のない 2 番目の質問は次のとおりです。

Delphi をオンラインで使用できる Web サイト (Web アプリケーション) はありますか? 実際には Web サイト上にありますか?

4

1 に答える 1

12

新しい VCL プロジェクトを作成します。TButtonaと aTProgressBarをメイン フォームにドロップします。次に、ボタンをダブルクリックして書き込みます

ProgressBar1.StepBy(1)

ボタンを繰り返しクリックすることで、進行状況バーを移動できるようになりました。

プログレスバーを単独で動かしたい場合は、 が必要なTTimerので、そのようなものをメイン フォームにドロップします。オブジェクト インスペクタを使用して、そのEnabledプロパティをに設定します。falseまた、 に設定Intervalし60ます。次に、タイマーをダブルクリックして、

ProgressBar1.Position := (ProgressBar1.Position + 1) mod ProgressBar1.Max;

フォームに戻り、ボタンをダブルクリックします。前に書いたコードを削除し、代わりに次のように記述します。

Timer1.Enabled := not Timer1.Enabled;

プロジェクトを実行します。ボタンを使用して、アニメーション (実行、停止) を切り替えることができます。

于 2012-07-26T08:33:19.220 に答える