Height: Integer;
Свойство Height возвращает высоту пиктограммы в пикселях.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Icon: IGxIcon;
h: Integer;
Begin
Icon := Self.Icon;
h := Icon.Height;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку в переменной «i» будет содержаться высота пиктограммы формы.
См. также: