delphi源码 办公用品（用Delphi语言来学设计模式之简单工厂篇）

本文目录

• 用Delphi语言来学设计模式之简单工厂篇
• 求DELPHI 锁定键盘鼠标的完整代码 80分哦
• 如何将Delphi 编写的程序转换成源码，详细点

用Delphi语言来学设计模式之简单工厂篇

  工厂模式中又分为简单工厂模式 工厂方法模式和抽象工厂模式 这里给大家介绍的简单工厂模式是其中最简单的一种 如果大家支持的话我会继续贴出工厂方法模式和抽象工厂模式等后续篇 要看大家的反应程度哦！

　　学习设计模式要对面向对象的程序设计有一定的理解 特别是多态性 如果能看懂下面的例子就没问题了 呵呵!

 在例程中我用到了接口 不明白得可以把它当成一个比抽象类还抽象的抽象类 说白了把它当成一个类就没错 下面开始吧

　　这是说明

　　//我们用一个小果园来说明什么是简单工厂 //这个果园里有葡萄 苹果和草莓三种水果 //所有的水果都有生长 耕作和收获三个步骤 //果园的任务就是让我们得到葡萄 苹果和草莓这三种水果对象 //我们利用得到的对象可以完成水果生长 耕作和收获三个步骤 //果园就是我们所说的简单工厂(Factory) //而葡萄 苹果和草莓这三种水果就是工厂里的产品 (Pruduct) //完成产品的过程称之为外部使用者(Produce) //使用简单工厂的好处是 // 充分利用了多态性 //不管你种什么 果园返回的对象并不是具体的葡萄 苹果或者草莓 //而是返回一个他们的抽象对象 水果（IFruit） // 充分利用了封装性 //内部产品发生变化时外部使用者不会受到影响 //他的缺点是 //如果增加了新的产品 就必须得修改工厂(Factory)

这是定义简单工厂的单元文件源代码

求DELPHI 锁定键盘鼠标的完整代码 80分哦

使用时定义一个TBevel控件，锁定鼠标实际上是将光标控制在这个TBevel区间内，也可以把光标控制在屏幕左上角一个点的位置：LockRect := Rect(0,0,1,1);
调试时要注意在程序中控制开启鼠标或键盘，否则输入设备都被封锁了，只有关电源重启．
procedure TForm1.LockKeyAndCursor(Lock: boolean);
var
LockRect: TRect;
begin
if Lock = True then
begin
LockRect := Rect(Form1.Left + bvLockCursor.Left,
Form1.Top + bvLockCursor.Top,
Form1.Left + bvLockCursor.Left + bvLockCursor.Width,
Form1.Top + bvLockCursor.Top + bvLockCursor.Height);
ClipCursor(@LockRect);
LockKey(True);
end
else
begin
FreeRect := Rect(0,0,Screen.Width,Screen.Height);
ClipCursor(@FreeRect);
LockKey(False);
end;
end;
procedure TForm1.LockKey(Lock: boolean);
var
temp: integer;
begin
if Lock = True then
begin
asm
IN AL,21H
OR AL,02H
OUT 21H,AL
end;
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0); //封锁组合键Ctrl+Alt+Del
end
else
begin
asm
IN AL,21H
AND AL,0FDH
OUT 21H,AL
end;
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0); //解开组合键Ctrl+Alt+Del
end;
end;
（以上代码出自大富翁）

如何将Delphi 编写的程序转换成源码，详细点

朋友，想实现这些功能，任何一种通用语言都可以办到。甚至使用具有宏编程功能的一些办公软件也可以。
我建议你使用Delphi或VB。其开发工具可以使任何初学者都快速上手。并且在显示上可以优雅地实现。
另外，单就此软件而言，恐怕将不可避免地使用数据库。作为个人使用，可采用最简单的Access桌面数据库。
我想你的设计意图大概是，针对历史数据进行分析和汇总，并给出最接近中奖的一组数字。所以，除掌握开发语言外，你还必须对用于操作数据库的SQL语言有一定了解。
总结：学习Delphi，Access，SQL。此三种工具在书店有大量相关书籍可供购入。最好找以“Delphi数据库编程”为核心的书。其中将会提供翔实的例程。1.编程语言和操作系统：Visual c++ (vc) visual baseic vb visual foxpro delphi c++ builder powerbuider;vc.net vb.net;Asp.net java；Windows32 win95,win98,win2000,windows me,windows2000,windowsxp,windowNT/winnt; linux,PDA/windowsCE/smartphone手机/arm/ppc2000/ppc2002; pocket pc2002, ce.net;掌上电脑，嵌入式设备，移动设备；
2.控件及平台：二维绘图控件、2d/3D图形控件、三维图形控件、矢量图形控件、矢量绘图控件、图形中间件、图形插件、图形浏览控件,CAD插件、CAD控件、矢量控件、GIS控件、GIS图形控件,GIS插件,图形软件开发源码,测绘控件,视频CAD，图形算法库、几何算法库、winCE图形控件 PDA图形控件,源码、免费下载、软件试用、编程资源、矢量图形软件开发,算法源码，c++源码,SmartPhone,CAD软件开发,GIS软件开发，Linux图形平台，CAD自主平台,CAD开发平台，GIS开发平台，图形软件开发引擎,IE图形控件,几何算法控件；
3.文件格式解析、文件格式转换、图形文件浏览、BMP、GIF、ICO、TGA、PCX、WBMP、WMF、EMF,JPEG、PNG、MNG、TIFF、JBIG、PNM,PPM,PGM、RAS，DXF ,DWF(4.0-6.0)、DWG(2.5-2005) 、IGS, MIF,PLT,PRN,HPGL/HPGL2、DGN(8.0), SHP, IGSAT, PS/IGES, PS/STEP, PS/VDA-FS, PS/PRO ENGINEER, PS/ACIS, PS/BOBY SHOP，QCD，SHX字体、TTF字体、SHP字体，LIN,GBR，pat，AutoCAD字体线型，mdf，dwg浏览，SVG格式；dwg2005,dwgr14,autocad2005,r14,r15,r18,2006,,GERBER RS-274X
4.资源下载：SHX字体下载，TTF字体，SHP字体，图库下载，建筑图库，电气图库，园林图库下载，dwf2dxf.exe，dwg2dxf.exe，hpgl2cad.exe，askern.dll,asocx.ocx,depend.exe,winrar.exe,winzip.exe,zip,rar,mfc42.dll
5.算法总汇：求交算法，相切，裁减，直线、圆、弧、椭圆、样条曲线、函数曲线、曲面、三维消隐、面积算法、长度计算、体积计算；点云，不规则体、三角形、找最小区域、查找最大区域、路径查找、相量、向量、矢量、单位向量、矩阵、矩阵变换，交点、切点、圆心等、解析几何、线性代数,贝赛尔曲线算法；坐标变换；
6. 图形技术汇总：Unigraphics,pro/engineer,i-deas,pkpm,3ds,3dmax,mastercam9.0,dwfsdk toolkit,PRO/E,SOLiDWORKS,AUTOCAD,Intellicad，VisualCASE,SolidEdge,UG,caxa,MDA,catia,powercad，opengl，heidi，acis，ug，microstation，opendwg，opendgn，Freetype，OpenSceneGraph，brlcad，mapinfo，arcinfo，hoops，zlib，solidedge，mdt，gdi++,directX,directdraw,directshow,计算机图形学，OdDbDatabasePtr，DWGdirect使用；
7. PDM/MRPII/ERP/OA等行业：图形文件浏览、图档管理、审图、批注图纸、权限管理、web图档管理、xml/rml批注文件 兼容Volo View Express和AutoCAD格式；数字签名等；redline,rml红线批注文件,产品数据管理,电子图纸管理