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