在Python脚本中使用Delphi控件

   Python设计GUI界面的时候，有强大的WxPython，PyQt等，在Windows下也有一个PyWin32的，不过那个是纯SDK模式开发的，用起来不太方便，这两天通过P4D研究了一下Delphi和Python交互的模式，于是通过P4D写了一个模块，通过本模块，就能实现在Python脚本中使用Delphi的控件。目前转化了几个基本的控件支持，增加了几个常规函数，用来作为一般的需求。

比如使用本模块创建一个简单脚本的记事本功能：

#-*-coding: gbk-*-
from DxVcl import *

class MainForm(Form):
    def __init__(self, Owner):
        self.Caption = "A Delphi Form..." 
        self.SetBounds(10, 10, 500, 400)
        self.TopPanel = Panel(self)
        self.TopPanel.Parent = self
        self.TopPanel.Align = 1
        self.Btn = Button(self)
        self.Btn.SetProps(Parent=self.TopPanel, Caption="打开")
        self.Btn.SetBounds(0, 3, 100, 25)                
        self.OnClose = self.MainFormClose
        self.Btn.OnClick = self.BtnClick
        self.BtnSave = Button(self)
        self.BtnSave.SetProps(Parent=self.TopPanel, Caption="保存")
        self.BtnSave.SetBounds(110, 3, 100, 25)                
        self.BtnSave.OnClick = self.BtnSaveClick
        
        self.Mo = Memo(self)
        self.Mo.Parent = self
        self.Mo.Align = 5 
    def BtnClick(self,Sender):
        #self.Caption = "测试不得闲"
        #ShowMessage(StrToHex(self.Caption))
        #ShowMessage(''.join(['16进制转换回来:',HexToStr(StrToHex(self.Caption))]))
        #ShowMessage(IntToStr(234234))        
        fileName = OpenDialog('文本文件|*.txt','打开文档')
        if fileName:

          self.Caption = '已经打开'+fileName.encode('gbk')
          self.Mo.Lines.LoadFromFile(fileName.encode('gbk'))
    def BtnSaveClick(self,Sender):
        if Ask(self.Handle,'确定要保存'):
           fileName = SaveDialog('文本文件|*.txt','保存文档')
           if fileName:
             self.Mo.Lines.SaveToFile(fileName.encode('gbk'))

    def MainFormClose(self, Sender, Action):
        Action.Value = caFree
        
class DxLogForm(Form):
    def __init__(self,Owner):
        self.Caption = '不得闲测试窗体'
        self.Position = 5
        self.BorderStyle = 3
        self.Width = 234
        self.Height = 150
        self.lb1 = Label(self)
        self.lb1.SetProps(Parent = self,Caption = '用户')
        self.lb1.SetBounds(40,16,28,13)
        self.EdtUser = Edit(self)
        self.EdtUser.SetProps(Parent = self,Text = 'dxsoft')
        self.EdtUser.SetBounds(77,13,121,21)
        self.lb2 = Label(self)
        self.lb2.SetProps(Parent = self,Caption = '密码')
        self.lb2.SetBounds(40,48,28,13)
        self.EdtPwd = Edit(self)
        self.EdtPwd.SetProps(Parent = self,Text = 'dxsoft',PasswordChar='*')
        self.EdtPwd.SetBounds(77,45,121,21)
        
        self.BtnLog = Button(self)
        self.BtnLog.SetProps(Parent = self,Caption = '登录')
        self.BtnLog.SetBounds(25,80,75,25)
        self.BtnLog.OnClick = self.BtnClick
        self.BtnCancel = Button(self)
        self.BtnCancel.SetProps(Parent = self,Caption = '取消')
        self.BtnCancel.SetBounds(141,80,75,25)
        self.BtnCancel.OnClick = self.BtnCancelClick
    def BtnClick(self,Sender):
        if self.EdtPwd.Text.decode('gbk') == '123':
            ShowMessage('登录成功,打开主窗体')    
            #self.visible = false            
            #打开另一个窗体
                        self.ModalResult = mrok
        else:            
            ShowMessage('密码为123')
    def BtnCancelClick(self,Sender):
        self.Close()
        
def dolog():
    LogFrm = DxLogForm(None)
    m = LogFrm.ShowModal() == mrok
    LogFrm.Free()    
    return m

def main():
    FreeConsole()
    if dolog():
        Application.Initialize()
        Application.Title = 'TestApp'
        f = MainForm(Application)
        f.Show()        
        Application.Run()
    else:
        ShowMessage('用户取消了登录')
    
if __name__=='__main__':
    main()

程序运行这个脚本双击运行之后的效果就是