掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ラベルエディットにて。数字がマイナスの時文字を赤くするには？ (ID：5142)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
値によって色を変えたいということなのでTLabeledEditのOnChangeを... procedure TForm1.LabeledEdit1Change(Sender: TObject); var n : Integer; c : TColor; ALabelEdit : TLabeledEdit; begin ALabelEdit := Sender As TLabeledEdit; n := StrToIntDef(ALabelEdit.Text,0); if n < 0 then c := clRed // マイナスであれば赤 else c := clWindowText; // Ｏ以上であれば標準のテキストカラー ALabelEdit.Font.Color := c; end; とすれば良いと思います。 TLabeledEditが複数あるということなので残りTLabeledEditのOnChangeも同じプロシージャに設定（この場合、オブジェクトインスペクタのコンボで"LabeledEdit1Change"を選択）します。 後は、にしのさんのレス通り配列で管理すれば良いと思います。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.