Delphi Create a Tabular Format with DelphiVCL.DrawGrid

[FireWind]

Create a Tabular Format with DelphiVCL.DrawGrid
By Muhammad Azizul Hakim May 16, 2021

DelphiVCL.DrawGrid represents a grid control that displays information in column and row format.

Add a DelphiVCL.DrawGrid object to a form to present arbitrary information in a tabular format. DrawGrid provides many properties to control the appearance of the grid, as well as events and methods that take advantage of the tabular organization of the grid in responding to user actions.

DrawGrid introduces several events and methods to allow applications to customize the appearance and behavior of the grid.
Let’s browse all the properties, methods, and built-in properties of the DelphiVCL.DrawGrid using dir() command:

import DelphiVCL
 
dir(DelphiVCL.DrawGrid)

See the responses in our Windows command prompt:

Here is the working example of the implementation of DelphiVCL.DrawGrid:

# Draw grid
grdTest = DrawGrid(pgOne)
grdTest.Parent = pgOne
grdTest.SetBounds(20, 20, 420, 180)

To see the result, let’s run the complete script:

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"
 
          # Draw grid
          grdTest = DrawGrid(pgOne)
          grdTest.Parent = pgOne
          grdTest.SetBounds(20, 20, 420, 180)
 
 
# Initialize your application
def main():
    Application.Initialize()
    Application.Title = "MyDelphiApp"
    f = MainForm(Application)
    f.Show()
    FreeConsole()
    Application.Run()
    Application.Destroy()
 
main()

Для просмотра ссылки Войди или Зарегистрируйся