
Delphi
swibyn
这个作者很懒,什么都没留下…
展开
-
关于对屏保的操作
据说不同系统的屏保程序不一样;方式一://xp测试通过 开始: PostMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0); 关闭: hwnd := FindWindow(WindowsScreenSaverClass,nil); PostMessage(hwnd,WM_CLOSE,0,0); 方式二原创 2010-01-22 14:18:00 · 579 阅读 · 0 评论 -
如何实现导航界面的独立性 --创建TForm2窗体,却无需 uses 其对应的unit
我想实现的目标: 导航界面与业务模块完全分开。导航界面单元中不需要Uses业务模块的任何单元,但却能在需要的时候创建出业务模块的窗体。我实现的方法: 1、在每个窗体文件中增加注册和反注册机制。如TfrmLoadFromExl窗体单元增加: initialization RegisterClass(TfrmLoadFromExl); finalization Un原创 2010-01-25 08:45:00 · 507 阅读 · 0 评论 -
如何实现对窗体的导航
代码中如何实现界面的导航声明:这篇短文所要叙述的方法是基于我上一篇文章的 《如何实现导航界面的独立性 --创建TForm2窗体,却无需 uses 其对应的unit》这里叙述两种:利用事件的方式,利用消息的方式 利用事件的方式: 这是我同事 黄 现在的使用方式。 具体做法: 1、对每个窗体类做唯一的ID标识。 2、把TButton的Tag标识赋值为其所要创建的窗体所对应的ID. 3原创 2010-01-25 10:23:00 · 1157 阅读 · 0 评论 -
如何处理包内单元的相互引用关系
如何处理包内单元的相互引用关系 我所遇到的问题:包中有几个窗体都到访问同一个数据库。于是我想把ado单独拿出来放在一个DataModle中。可问题就来了,导航窗体在创建这个单元时怎么可能知道先去创建那个DataModle呢? 于是我这样做了:我在DataModle单元的初始化代码中直接先把这个单元给创建了。这个单元干脆也不注册了。就这样。呵呵!不过也算是一个办法吧,不过也不知道是否原创 2010-02-06 09:58:00 · 360 阅读 · 0 评论 -
使用包后关闭窗体时退出的异常
使用包后关闭窗体时退出的异常(uses 上一篇:如何处理包内单元的相互引用关系) 情况是这样的: 情形一:导航窗体单元TfrmNavigation --调用-->TDatabaseBackupForm(没有显式自销毁) --调用--> TServerDiratryForm 则在导航窗体关闭时报地址错误 情形二:导航窗体单元TfrmNavigation --调用-->TD原创 2010-02-06 10:00:00 · 434 阅读 · 0 评论 -
如何处理包内单元的相互引用关系
如何处理包内单元的相互引用关系 我所遇到的问题:包中有几个窗体都到访问同一个数据库。于是我想把ado单独拿出来放在一个DataModle中。可问题就来了,导航窗体在创建这个单元时怎么可能知道先去创建那个DataModle呢? 于是我这样做了:我在DataModle单元的初始化代码中直接先把这个单元给创建了。这个单元干脆也不注册了。就这样。呵呵!也算是一个办法吧,不过也不知道是否有更原创 2010-02-05 18:02:00 · 468 阅读 · 0 评论 -
现在的样子(20100202)
现在的样子(20100202)(uses 导航界面与业务模块完全分开)(uses 代码中如何实现界面的导航)(uses 如何处理包内单元的相互引用关系)(uses 使用包后关闭窗体时退出的异常) {*******************************************************}{原创 2010-02-06 10:01:00 · 429 阅读 · 0 评论