FilesExpand file tree

 master

/

TestApp.py

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

25 lines (19 loc) · 626 Bytes

 master

/

TestApp.py

Copy path

Top

File metadata and controls

• Code
• Blame

25 lines (19 loc) · 626 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

from Delphi import *

class MainForm(Form):

def __init__(self, Owner):

self.Caption = "A Delphi Form..."

self.SetBounds(10, 10, 500, 400)

self.lblHello = Label(self)

self.lblHello.SetProps(Parent=self, Caption="Hello World")

self.lblHello.SetBounds(10, 10, 300, 24)

self.OnClose = self.MainFormClose

def MainFormClose(self, Sender, Action):

Action.Value = caFree

def main():

Application.Initialize()

Application.Title = "MyDelphiApp"

f = MainForm(Application)

f.Show()

FreeConsole()

Application.Run()

main()