173a174 > procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED; 1181a1183,1197 > end; > > procedure TJvIPAddress.CMEnabledChanged(var Message: TMessage); > begin > inherited; > if not Self.Enabled then > begin > Self.Color := clBtnFace; > Self.Font.Color := clBtnShadow; > end > else > begin > Self.Color := clWindow; > Self.Font.Color := clWindowText; > end;