ActiveTool: WxTool;
Свойство ActivTool определяет активный инструмент рабочего пространства.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "Button1", компонента WorkspaceBox с наименованием «WorkspaceBox1» и какого-либо источника данных для «WorkspaceBox1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
WorkspaceBox1.ActiveTool := WxTool.Hand;
End Sub Button1OnClick;
При нажатии на кнопку в качестве активного инструмента будет включен указатель в виде руки, позволяющая изменять видимую область рабочего пространства.
См. также: