プログレスバーの枠だけ使う (ID:38959)

名前

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

本文 ためしてないけど こうかね？ TProgressbar = class(ComCtrls.TProgressBar) private procedure PBM_SETPOS(var Message: TMessage); message PBM_SETPOS; protected public procedure DrawProgress; end; procedure TProgressBar.PBM_SETPOS(var Message: TMessage); begin inherited; DrawProgress; end;