こんな手続きをつくってみた
procedure EditEnable(Edit: TEdit; Enabled: Boolean);
begin
Edit.Enabled := Enabled;
if Enabled then Edit.Color := clWhite
else Edit.Color := clBtnFace;
end;
あんまり綺麗にならなかった＿|￣|○
しかも、質問に答えてねぇ