IsSystemColor: Boolean;
Свойство IsSystemColor возвращает True, если цвет является системным.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
s: String;
Begin
If Panel1.Color.IsSystemColor Then
s:="Yes";
Else
s:="No";
End If;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку в переменной «s» будет содержаться «Yes» если цвет панели с наименованием «Panel1» является системным.
См. также: