Height-Eigenschaft

Artikel
04/01/2008

Gibt die Höhe eines Objekts auf dem Bildschirm an. Diese Eigenschaft ist zur Entwurfs- und zur Laufzeit verfügbar.

Object.Height[ = nHeight]

Eigenschaftswerte

nHeight
Gibt die Höhe des Objekts in der Maßeinheit an, die in der ScaleMode-Eigenschaft des Formulars angegeben ist.

Hinweise

Bei Formularen schließt die Höhenangabe nicht die Ränder und die Titelleiste mit ein.

Bei Steuerelementen wird die Höhe einschließlich der Ränder gemessen.

Der Wert dieser Eigenschaft ändert sich, wenn die Größe des Objekts durch eine Benutzeraktion oder mittels Code angepasst wird.

Verwenden Sie die Height- und Width-Eigenschaften für Berechnungen, die vom Gesamtbereich eines Objekts ausgehen.

Anmerkung Die Height-Eigenschaft ist schreibgeschützt, wenn sie auf ein Steuerelement in einem Spaltenobjekt angewendet wird.

Beispiel

Das folgende Beispiel zeigt, wie Sie die Height-Eigenschaft verwenden können, um die Höhe von drei Befehlsschaltflächen in einem Formular anzugeben.

Mit der AddObject-Methode werden einem Formular ein Linien-Steuerelement (Line) und drei Befehlsschaltflächen hinzugefügt. Die Height-Eigenschaft gibt die vertikale Höhe der einzelnen Befehlsschaltflächen an.

frmMyForm = CREATEOBJECT('form')  && Create a form
frmMyForm.Closable = .F.  && Disable the Control menu box 

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

Siehe auch

Left-Eigenschaft | Move-Methode | ScaleMode-Eigenschaft | Top-Eigenschaft | Width-Eigenschaft

Freigeben über

Height-Eigenschaft

Eigenschaftswerte

Hinweise

Beispiel

Siehe auch

Zusätzliche Ressourcen