客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
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() 程序运行这个脚本双击运行之后的效果就是 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论