已禁用TEdit字體顏色

Question

我有一個應用程序有一個TEdit，它在應用程序運行時被禁用。經過一些計算後，它將被啓用。我的要求是將此禁用的Font.Color設置爲灰色（禁用字體顏色）。

Answer 1

見彼得下面是在這個link完成你對托裏的德爾福頁面客觀兩個建議。從你對谷歌搜索引擎的評論來看，他的第一個建議對你來說會更簡單。刪除一個TPanel窗體上並拖動一個TEDIT到TPanel（即TPanel是TEDIT的父母，然後在表單上放一個按鈕，模擬當你計算完成。

procedure TForm1.btnToggleEnabledClick(Sender: TObject); 
begin 
    if Panel1.Enabled then 
    begin 
    {Calcs are not done, so disable the TEdit} 
    Panel1.Enabled := false; 
    Edit1.Font.Color := clBlue; 
    Edit1.Text := 'Calcs not done'; 
    end 
    else 
    begin 
    {Calcs are done, so enable the TEdit} 
    Panel1.Enabled := true; 
    Edit1.Font.Color := clWindowText; 
    Edit1.Text := 'Calcs all done'; 
    end; 
end; 

Answer 2

標準TEdit不支持此功能。您可以將編輯設置爲ReadOnly而不是Disabled - 這樣，字體顏色將保留，但用戶無法更改編輯的值。即「禁用」編輯

Edit1.ReadOnly := True; 
Edit1.Font.Color := clBlue; 

，並再次啓用它

Edit1.ReadOnly := False; 
Edit1.Font.Color := clWindowText;