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