Delphi 实现窗体的全屏显示效果

Delphi 函数【Frame3D】的应用，该函数用于在画布上绘制一个3维框图： 　　implementation 　　{$R *.dfm} 　　procedure TFrmFrame3D.FormCreate(Sender: TObject); 　　begin 　　 Bc:=Rect(80,50,100,200); 　　end; 　　procedure TFrmFrame3D.FormPaint(Sender: TObject); 　　begin 　　 Frame3D(canvas,Bc,clblack,clAppWorkSpace,2); 　　end; 　　procedure TFrmFrame3D.Button1Click(Sender: TObject); 　　begin 　　 Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text)); 　　 Frame3D(canvas,Bc,clblack,clAppWorkSpace,2); 　　end;

Delphi实现RGB色环多次渐变，生成一个渐变的圆形，颜色渐变步长可自定义，在代码中，为了绘制出来的圆好看，分成四个部分进行绘制，此部分代码展示如下： 　　if (degree >= 0+qki) and (degree 45+qki) and (degree 135+qki) and (degree 215+qki) and (degree 315+qki) and (degree

用delphi编写的rfid读卡器程序，支持epcc1-g2和18000-6b，囊括了所有操作，对于进行rfid开发的人，应该有很大的帮助

Delphi 键盘钩子 封锁 windows 热键，封锁范围，可参见以下代码： 　　 keycost := LPKBDLLHOOKSTRUCT(lParam); 　　 if (keycost.vkCode=91) then//封锁win键 　　 exit; 　　 if (keycost.vkCode=VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)0) then 　　 exit; //封锁 ALT+TAB 　　 if (keycost.vkCode=115) and ((keycost.flags and LLKHF_ALTDOWN)>0) then 　　 exit; //封锁 ALT+F4 　　 if (keycost.vkCode=VK_ESCAPE) and ((keycost.flags and LLKHF_ALTDOWN)>0) then 　　 exit; //封锁 ALT+ESC 　　 if (keycost.vkCode=VK_SPACE) and (GetAsyncKeyState(VK_CONTROL)

本源码向大家演示Delphi如何清空TImage组件中的图片，如示例截图所示，TImage组件中已经装载了一张图片，单击“清空图片”按钮，将调用以下代码清空TImage组件中的图片数据： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 image1.picture.graphic := nil; 　　end; 　　这是一个比较初级的Delphi图像组件用法示例，Delphi新手可参考学习。

Delphi在窗口中单击左键弹出菜单，在运行的窗体空白外，单击鼠标左键，弹出主菜单，其实和右键 菜单 是一样的原理，希望通过这个简单的例子，了解自定义窗口菜单的实现方法。

本源码主要演示，Delphi如何拖动一个无标题栏的窗体，此前记得与大分享过不少VB类的相似源码，大部分情况下，我们习惯拖动窗口的标题栏来移动窗口，现在我们把窗口的标题栏去掉了，那么是如何实现窗口的拖动呢？其实我们可以拖动窗口的主窗口部位，同样可以拖动窗口，而且这样似乎更方便操作，关于代码的实现，请大家下载源码后，查看Unit1.pas文件。

Delphi 模拟Windows “显示桌面”功能，对于功能就不再详述了，单击后，会看到Windows桌面，具体的实现方法也挺简单的，下面几行代码就搞定了： 　　if IsWindowVisible(h) then 　　 PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0); 　　h := GetNextWindow(h, GW_HWNDNEXT); 　　完整的可编译源码请你下载源码包吧。

Delphi在Windows7 中调用系统的日期时间设置窗口，在Delphi程序中，调用Windows中的指定窗口，本例是介绍在Windows7环境下调用系统的日期时间设置窗口，即控制面板中的日期时间设置面板，在Windows XP中同样适用，win8或win10下未做测试。

Delphi 实现图像热点功能，实现一张图片上不同形状区域的热点，定义椭圆形、四边形、三角形的区域变量的热点，相关代码如下： 　　var 　　 thepoint:array [1..8] of tpoint;//存储多边形顶点坐标 　　 count:integer; 　　 pointnum:array [1..2] of integer; 　　begin 　　//四边形顶点坐标，首末点封闭 　　 thepoint[1]:=point(135,99); 　　 thepoint[2]:=point(105,183); 　　 thepoint[3]:=point(129,201); 　　 thepoint[4]:=point(188,92); 　　 thepoint[5]:=point(135,99); 　　 count:=5;//四边形顶点数目，首末点为一点 　　 fourE_rgn:=CreatePolygonRgn(thepoint,count,WINDING);//生成四边形区域 　　 elli_rgn:=CreateEllipticRgn(64,221,231,263);// 生成椭圆形区域 　　 //第一个三角形顶点坐标 　　 thepoint[1]:=point(118,67); 　　 thepoint[2]:=point(32,28); 　　 thepoint[3]:=point(17,90); 　　 thepoint[4]:=point(118,67); 　　 //第二个三角形顶点坐标 　　 thepoint[5]:=point(155,44); 　　 thepoint[6]:=point(202,91); 　　 thepoint[7]:=point(277,44); 　　 thepoint[8]:=point(155,44); 　　 pointnum[1]:=4;//第一个三角形顶点数目 　　 pointnum[2]:=4;//第二个三角形顶点数目 　　 count:=2;//三角形数目 　　//生成由两个三角形构成的三角形区域 　　tri_rgn:=CreatePolyPolygonRgn(thepoint,pointnum,count,WINDING); 　　end;