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:
|
1 2 3 |
import DelphiVCL dir(DelphiVCL.Edit) |
See the responses in command prompt:
Here is the working example of the implementation of DelphiVCL.Edit to create an Edit Box inside our form:
|
1 2 3 4 5 6 7 8 9 10 |
# 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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 |
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:
Check out DelphiVCL which easily allows you to build GUIs for Windows using Python.
Watch this comprehensive introduction to Python GUI Development with DelphiVCL library video by Jim McKeeth:
