掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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; これで白と好きな色が変更になります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.