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

名前

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

本文 わくだけ利用するなら TProgressBar = class(ComCtrls.TProgressBar) private procedure WMPAINT(var Message: TWMPAINT);message WM_PAINT; public end; procedure TProgressBar.WMPAINT(var Message: TWMPAINT); var ACanvas: TControlCanvas; Pos: Extended; begin inherited; ACanvas := TControlCanvas.Create; ACanvas.Control := Self; ACanvas.Brush.Color := clWhite; ACanvas.FillRect(Rect(2,2,Width-3,Height-2)); ACanvas.Brush.Color := clRed; Pos := (Width - 4) / (Max - Min) * Position; ACanvas.FillRect(Rect(2,2,Trunc(Pos),Height-2)); ACanvas.Free; end; これでいいんじゃないか テーマは使用していないけど