Определяет дистанцию между верхним краем элемента управления или формы и содержащего их контейнерного объекта. Доступно как в design time, так и в run time.

Object.Top[ = nValue]

Expand imageВозвращаемое значение

nValue

Указывает дистанцию между верхним краем элемента управления или формы и содержащего их контейнерного объекта.

Для формы, контейнером, используемым по умолчанию, является главное окно Visual FoxPro.

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

Применяется к: CheckBox | ComboBox | CommandButton | CommandGroup | Container Object | Control Object | Custom | EditBox | Form | Grid | Image | Label | Line | ListBox | OLE Bound Control | OLE Container Control | OptionButton | OptionGroup | PageFrame | _SCREEN | Shape | Spinner | TextBox | Timer | ToolBar

Свойство Top указывает, как далеко от нулевой позиции размещен объект. Например, если форма содержится в главном окне Visual FoxPro, нулевой позицией является нижний край системного меню, а в случае если к верхнему краю главного окна пристыкована панель инструментов, нулевой позицией является нижний край панели.

Используйте свойства Left, Top, Height и Width для операций, основанных на внешних размерах объектов, таких, как операции перемещения или изменения в размерах.

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

В случае, если элемент управления содержится в объекте Column, то его свойство Top получает признак "только для чтения.

Единица измерения, используемая в свойстве Top, определяется значением свойства ScaleMode элемента управления.

Expand image Пример

В приведенном ниже примере показано, как свойство Top используется для позиционирования элементов управления на форме. Метод AddObject используется для ввода в форму элемента управления Line и трех командных кнопок. Свойство Top определяет вертикальное размещение на форме каждого элемента управления.
  CopyCode imageСкопировать код
frmMyForm = CREATEOBJECT('Form')  && Create a Form
frmMyForm.Closable = .F.  && Disable the window pop-up menu

frmMyForm.AddObject('shpLine','Line')  && Add a Line control to the form
frmMyForm.AddObject('cmdCmndBtn1','cmdMyCmndBtn1')  && Up Cmnd button
frmMyForm.AddObject('cmdCmndBtn2','cmdMyCmndBtn2')  && Down Cmnd button
frmMyForm.AddObject('cmdCmndBtn3','cmdMyCmndBtn3')  && Quit Cmnd button

frmMyForm.shpLine.Visible = .T.  && Make Line control visible
frmMyForm.shpLine.Top = 20  && Specify Line control row
frmMyForm.shpLine.Left = 125  && Specify Line control column

frmMyForm.cmdCmndBtn1.Visible =.T.  && Up Command button visible
frmMyForm.cmdCmndBtn2.Visible =.T.  && Down Command button visible
frmMyForm.cmdCmndBtn3.Visible =.T.  && Quit Command button visible

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS cmdMyCmndBtn1 AS COMMANDBUTTON  && Create Command button
   Caption = 'Slant \<Up'  && Caption on the Command button
   Left = 50  && Command button column
   Top = 100  && Command button row
   Height = 25  && Command button height
   
   PROCEDURE Click
      ThisForm.shpLine.Visible = .F.  && Hide the Line control
      ThisForm.shpLine.LineSlant ='/'  && Slant up
      ThisForm.shpLine.Visible = .T.  && Show the Line control
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn2 AS CommandButton  && Create Command button
   Caption = 'Slant \<Down'  && Caption on the Command button
   Left = 200  && Command button column
   Top = 100  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      ThisForm.shpLine.Visible = .F.  && Hide the Line control
      ThisForm.shpLine.LineSlant ='\'  && Slant down
      ThisForm.shpLine.Visible = .T.  && Show the Line control
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn3 AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 150  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close Form
ENDDEFINE

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