我的微店
得闲笔记
我命由我不由天

   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()

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

posted on 2011-04-03 16:53  不得闲  阅读(5009)  评论(3编辑  收藏  举报