ShapeのpsDotで、点線が動いているように見えるようにするには? (ID:38702)

名前

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

本文 お世話になっております。 Delphi2007,XPです。 Shapeを置き、 Shape=stRectangle Pen.Style=psDot にすると、辺が点々の長方形になりますが、 この点々を、動いているように見せたいのです。 具体的には、Timerを置いて、１秒ごとに、長方形の辺の点の部分と空白の部分が入れ替わるみたいな感じにしたいのです。 Pen.StyleとかPen.Modeとかをいろいろいじっていますが、思うとおりになりません。 よろしくお願いします。