R: Integer;
Свойство R возвращает красную компоненту цвета от 0 до 255.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
i: Integer;
Begin
i:=Panel1.Color.R;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку в переменной «i» будет содержаться красная компонента цвета панели с наименованием «Panel1».
См. также: