掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
指定した手続きを実行するには？ (ID：4303)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
けっきょく僕が知りたかったものは手続き型でした(たぶん) TProcedure = procedure(Value: Byte) of object; procedure TForm1.Button1Click(Sender: TObject); begin Test(UpProgressBar1); end; procedure TForm1.Test(a: TProcedure); var i: Integer; begin for i := 0 to 100 do begin a(i); sleep(100); end; end; procedure TForm1.UpProgressBar1(Value: Byte); begin with ProgressBar1 do begin Position := Value; if ProgressBar1.Position = 100 then ProgressBar1.Position := 0; end; 説明が下手ですみませんでした。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.