ActiveBorder: IGxColor;
Свойство ActiveBorder возвращает объект, содержащий цвет границы активного окна.
Sub Main;
Var
SysColor: IGxSystemColors;
Color: IGxColor;
Begin
Color:=SysColor.ActiveBorder;
End Sub Main;
После выполнения примера в переменной «Color» будет содержаться цвет границы активного окна.
См. также: