Происходит перед стыковкой объекта ToolBar или объекта Form, например, когда панель инструментов или форма перетаскивается в зону стыковки или вызывается метод Dock.

PROCEDURE Object.BeforeDock
LPARAMETERS nLocation

Параметры

nLocation

Возвращает позицию стыковки для панели инструментов или формы.

В приведенной ниже таблице перечислены значения для nLocation.

nLocation Описание константа FoxPro.h

-1

Форма или панель инструментов будут расстыкованы.

TOOL_NOTDOCKED

0

Форма или панель инструментов будут пристыкованы вверху главного окна Visual FoxPro.

TOOL_TOP

1

Форма или панель инструментов будут пристыкованы к левому краю главного окна Visual FoxPro.

TOOL_LEFT

2

Форма или панель инструментов будут пристыкованы к правому краю главного окна Visual FoxPro.

TOOL_RIGHT

3

Форма или панель инструментов будут пристыкованы снизу главного окна Visual FoxPro..

TOOL_BOTTOM

4

Форма будет состыкована с другой формой закладочной стыковкой.

TOOL_TAB

5

Форма будет состыкована с другой формой линковочной стыковкой.

ЗамечаниеЗамечание

Для определения дополнительной информармации о объекте, к которому будет стыковаться форма или панель инструментов, а также позиции стыковки, вам необходимо вызвать метод GetDockState после завершения операции стыковки. Для получения более подробной информации, смотрите описание метода GetDockState.

TOOL_LINK

Expand imageПримечания

Применяется к: Form Object | ToolBar Object

BeforeDock происходит до момента перерисовки Visual FoxPro формы или панели инструментов, так что вы можете изменить внешний облик формы или панели инструментов. Например, предположим, что вы пожелаете заменить элемент управления ComboBox на форме элементом командной кнопки - CommandButton, которые имеют разные пропорции в размерах. Вы можете вставить код в событие BeforeDock который заменит элемент управления до стыковки формы.

Возврат .F. (False) из кода события или введение в код события команды NODEFAULT не предотвратит стыковку. Для получения более подробной информации, смотрите Команда NODEFAULT.

Expand image Смотрите также