Delphi Create an Edit Controls using DelphiVCL.Edit or TEdit

FireWind

Свой
Регистрация
2 Дек 2005
Сообщения
1,957
Реакции
1,199
Credits
4,009
Create an Edit Controls using DelphiVCL.Edit or TEdit
By Muhammad Azizul Hakim May 2, 2021

DelphiVCL.Edit or TEdit is a wrapper for a Windows single-line edit control.

We can use an Edit object to put a standard Windows edit control on a form. Edit controls are used to retrieve text that users type. Edit controls can also display text to the user.

When only displaying text to the user, choose an edit control to allow users to select text and copy it to the Clipboard. Choose a label object if the selection capabilities of an edit control are not needed.

Edit implements the generic behavior introduced in CustomEdit. Edit publishes many of the properties inherited from CustomEdit, but does not introduce any new behavior. For specialized edit controls, use other descendant classes of CustomEdit or derive from it.

We can browse all the properties, methods, and built-in properties of the DelphiVCL.Edit using dir() command:
Python:
import DelphiVCL
 
dir(DelphiVCL.Edit)
See the responses in command prompt:
1620045392298.png
Here is the working example of the implementation of DelphiVCL.Edit to create an Edit Box inside our form:
Python:
# Edit box creation
edtHello = CreateComponent('TEdit',pgOne)
edtHello.Parent = pgOne
edtHello.Text = 'Arthur'
edtHello.Name = 'edtFirstName'
# Set the positions and dimensions
edtHello.Left = 145
edtHello.Top = 14
edtHello.Width = 121
edtHello.Height = 30
To see the result, let’s run the complete script:
Python:
from DelphiVCL import *
 
# Create a Class to build a basic Form
class MainForm(Form):
    def __init__(self, Owner):
        self.Caption = "Introduction to VCL Components"
        self.Name = "BaseForm"
        self.SetBounds(10, 10, 500, 450)
 
        # Create a Main Panel component
        pnlMain = CreateComponent('TPanel',Owner)
        pnlMain.SetProps(Parent=self, Caption="",align = "alClient", Name = "MainPanel")
 
        # Page control creation
        pgConMain = PageControl(pnlMain)
        pgConMain.Name = "MyPageControl"
        pgConMain.Parent = pnlMain
        pgConMain.Align = "alClient"
 
        # Tabsheet one
        pgOne = TabSheet(pnlMain)
        pgOne.PageControl = pgConMain
        pgOne.Caption = "Tab 1"
 
        # Tabsheet two
        pgTwo = TabSheet(pnlMain)
        pgTwo.PageControl = pgConMain
        pgTwo.Caption = "Tab 2"
 
        # Label Creation
        lblHello = CreateComponent('TLabel',pgOne)
        lblHello.Parent = pgOne
        lblHello.Caption = 'FirstName'
        lblHello.Name = 'Name'
        # Set the positions
        lblHello.Left = 20
        lblHello.Top = 14
        lblHello.Width = 121
        lblHello.Height = 30
 
        # Edit box creation
        edtHello = CreateComponent('TEdit',pgOne)
        edtHello.Parent = pgOne
        edtHello.Text = 'Arthur'
        edtHello.Name = 'edtFirstName'
        # Set the positions and dimensions
        edtHello.Left = 145
        edtHello.Top = 14
        edtHello.Width = 121
        edtHello.Height = 30
 
# Initialize your application
def main():
    Application.Initialize()
    Application.Title = "MyDelphiApp"
    f = MainForm(Application)
    f.Show()
    FreeConsole()
    Application.Run()
    Application.Destroy()
 
main()
The result:
1620045443682.png
Для просмотра ссылки Войди или Зарегистрируйся