Image1の上にコントロールをクリエートしたい (ID:21359)

名前

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

本文 スレと関係ないですが タバスコさんのコードの応用です。 つい2006/5/1に製作していた、某TV局用のプログラムの一部です。 設計時にシェイプのタグに好きな色の数値を入れて下さい。 procedure TForm1.Shape1Click(Sender: TObject); begin TShape(Sender).Brush.Color:=TColor(Integer(TShape(Sender).Brush.Color xor clwhite)+TComponent(Sender).Tag); end; これで白と好きな色が変更になります。