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; 暑い・・・