Определяет дистанцию между левым краем элемента управления или формы и содержащим его контейнерным объектом. Доступно как в design time, так и в run time.
Object.Left[ = nDist] |
Возвращаемое значение
- nDist
-
Указывает дистанцию между левым краем элемента управления или формы и содержащим его контейнерным объектом.
Контейнером для форм является, по умолчанию, главное окно Visual FoxPro.
Примечания
Применяется к: CheckBox Control | ComboBox Control | CommandButton Control | CommandGroup Control | Container Object | Control Object (Visual FoxPro) | Custom Object | EditBox Control | Form Object | Grid Control | Image Control (Visual FoxPro) | Label Control (Visual FoxPro) | Line Control | ListBox Control | OLE Bound Control | OLE Container Control | OptionButton Control | OptionGroup Control | PageFrame Control | _SCREEN System Variable | Shape Control | Spinner Control | TextBox Control (Visual FoxPro) | Timer Control | ToolBar Object
Свойство Left указывает, как далеко от нулевой позиции объект размещен. Например, если форма содержится в главном окне Visual FoxPro, нулевой позицией является правый край левого бордюра главного окна. Если к левому краю главного окна пристыкована панель инструментов, то нулевой позицией является правый край панели.
Используйте свойства Left, Top, Height и Width для операций, основанных на внешних размерах объекта, таких как перемещение или изменение в размерах. Используйте свойство ScaleMode для изменения единицы измерения.
![]() |
---|
Если объект содержится в объекте Column, то его свойство Left получает признак "только для чтения". |
Пример
Приведенный ниже пример показывает, как используется свойство Left для размещения элементов управления на форме. Метод AddObject, используется для ввода в форму элемента управления Line и трех командных кнопок, а свойство Left вводимых элементов управления указывает их горизонтальное размещение на форме.
![]() | |
---|---|
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 |