掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TEditのフォントカラーを変更するには？ (ID:22298)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すいません、Readonlyと勘違いしていました。 二つ上のレスは無視してください。 > WinControlの仕様... ということで、この仕様を無視したDisable状態のフォント色変更方法 VCLを無視するので、Disable 状態でも、Edit.Enabled = True になります。 procedure TForm1.Button1Click(Sender: TObject); var wstyle :Integer; begin if Edit2.Tag = 0 then begin wstyle := GetWindowLong(Edit2.Handle, GWL_STYLE); wstyle := wstyle or WS_DISABLED; SetWindowLong(Edit2.Handle, GWL_STYLE, wstyle); Edit2.Font.Color := clRed; Edit2.Tag := 1; end else begin wstyle := GetWindowLong(Edit2.Handle, GWL_STYLE); wstyle := wstyle AND not WS_DISABLED; SetWindowLong(Edit2.Handle, GWL_STYLE, wstyle); Edit2.Font.Color := clYellow; Edit2.Tag := 0; end; end; 暑い・・・
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.