Delphi 限制窗口最大化显示

Delphi 将TColor换算成RGB，将一种颜色按照RGB颜色分量的形式分离出来，显示各自的颜色值，类似于一个拾色器的功能，你可从列表中选择任意一种颜色，然后查看获取到的颜色分量的值，如示例截图所示。

Delphi 演示使用演示Brush笔刷对象后生成的各种风格，一种演示了7种笔刷效果，定义了一个存储绘图风格的7维数组，然后使用For循环对绘图风格数组赋值，然后使用Canvas.Brush.Style来预览风格。这些笔刷风格都是浅色彩的风格。

ANI动画鼠标，为自己的鼠标定制了一个带笑脸动画的光标，类似于定义鼠标的样式，定义动画光标将改变鼠标默认的样式，这样定义的动画光标格式为ANI文件。 　　屏幕截图抓不到动画光标，这是神马情况？

Delphi 创建INI文件，使用了Tinifile.Create来创建一个指定格式的INI文件，作为程序的配置文件，运行程序时读入文件中的内容。ini文件作为配置文件，相信大家已经不陌生了，对于Delphi操作新手来说，源代码有很好的学习参考作用。通过本源码你可以了解到写文件对象中WriteBool、WriteFloat、WriteDate、WriteTime、WriteInteger、WriteString等众多字段类型写入的用法。

Delphi7.0实现超级连接效果，在窗体上显示超级链接，这个似乎比较简单了，在网页上这是基本的功能，不过如何把一个超链接显示在窗口中，和网页上有些区别，通过这个例子你将学会如何在窗体上实现链接的显示，以及多种链接状态的自定义功能。

Delphi编写制作一款形象的电子表（钟表）效果，模拟时钟，界面方面做成了圆形，看不见窗口的边框，像是透明的窗口，各个指针会走动，关于各个指针的移动及计算方法，有兴趣可参考： 　　vh := Hour/12.0*2*Pi; 　　vm := Min/60.0*2*Pi; 　　vs := Sec/60.0*2*Pi; 　　with Canvas do 　　begin 　　 Pen.Width:=4; 　　 Pen.Color := clBlack; 　　 MoveTo(60,60); 　　 LineTo(60+Round(25*Sin(vh)),60-Round(25*Cos(vh))); 　　 Pen.Width:=2; 　　 Pen.Color := clBlack; 　　 MoveTo(60,60); 　　 LineTo(60+Round(45*Sin(vm)),60-Round(45*Cos(vm))); 　　 Pen.Width:=1; 　　 Pen.Color := clRed; 　　 MoveTo(60,60); 　　 LineTo(60+Round(55*Sin(vs)),60-Round(55*Cos(vs))); 　　end; 　　窗体方面：这个圆盘窗口要是能移动就好了，不支持右键菜单，也不能关闭，关闭窗口需要按键盘上的ALT+F4。

Delphi判断双字节，用法简单，在窗口输入框中输入字符串，单击按钮即可，程序会判断出是否包含有双字节字符，判断方法请看下边的代码段： 　　s := Edit1.Text; 　　i := 0; 　　while i　　begin 　　 if (ByteType(S,i) mbSingleByte) then 　　 begin 　　 s1 := s1+ copy(s,i,2)+; 　　 i := i+2; 　　 end 　　 else 　　 i:= i+1; 　　end; 　　label2.Caption := trim(s1);

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

Delphi 单击StringGrid列进行排序，StringGrid行的任意列单击，就会重新排序一次，排序规则可以自己定义，这种排序功能可有效提升StringGrid显示数据的易用性，增强其功能，提升用户体验，本例子源代码相当简单，对学习者也有很好的帮助作用。参见以下代码： 　　begin 　　 if Button = mbRight then Exit; 　　 TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow); 　　 if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit; 　　 StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol); 　　 if vOldCol = vCol then 　　 vOldCol := - vOldCol 　　 else 　　 vOldCol := vCol; 　　end;

Delphi 制作的文字屏保，文字交替变化，晃动鼠标结束屏保。本程序的亮点是对文字动画效果的生成和控制。具有文字渐变和水平平移动画。