Delphi 渐变的RGB空心色环绘制源码演示

Delphi 判断字符串是否为日期或时间，检查用户输入的时间格式是否正确，判断用户输入的是否是时间字符串，这个虽然麻烦些，不过这个例子将问题简单化，有兴趣的参考源码。

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 利用API绘制弧形， 　　begin 　　 ArcRect := ClientRect; 　　 Canvas.Pen.Width:=2; 　　 for i:=1 to 10 do 　　 begin 　　 Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right, 　　 ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2, 　　 ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2); 　　 InflateRect(ArcRect,-2,-2); 　　 Canvas.Pen.Color := PaletteIndex(i+10); 　　 end;

Delphi 通过时间服务器更新时间，包括了两个功能：1、获取服务器时间，2、更新本机时间。通过时间服务器，可一键自动更新日期时间，不过本实例连接的服务器已经失效了，程序不能连接，会假死，测试时候要注意。

Delphi获取windows System目录路径，这个比较简单，觉得没啥用，只是可以练习一下GetSystemDirectory函数如何使用，下面分享出核心的代码，完整代码需要您下载哦： 　　begin 　　 GetMem(SysDir,255); 　　 GetSystemDirectory(SysDir,255); 　　 Edit1.Text := SysDir; 　　end;

Delphi 取消窗体标题栏的关闭按钮，也就是单击窗口右上角的关闭按钮，窗体并不会关闭，让关闭按钮失去了作用，用户可通过单击窗口中的自定义按钮来关闭窗口，这样就相当于取消了窗体标题栏中的关闭按钮。

Delphi 返回底数的任何次幂，本演示求2的4次幂、3的3次幂，求解过程如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit1.Text := FloatToStr(Power(2,4)); 　　 Edit2.Text := FloatToStr(Power(3,3)); 　　end; 　　以上代码定义在按钮事件中，当用户单击按钮后激活。

如何屏蔽sleep和wake up键,一个是待机键,一个是唤醒键,屏蔽可有效避免误操作,不过本代码过于简单,屏蔽效果有待测试,核心代码如下: 　　procedure TForm1.WMPowerBroadcast(var message: TMessage); 　　begin 　　 message.Result := BROADCAST_QUERY_DENY; 　　end;

这个程序演示了使用Word作为自动化服务器，Delphi地自动化控制器是如何将一个查询结果插入到word文档中，在程序调用过程中返回应用参数.这个调用在英文和法文版的 Word中相同。如果这个过程不存在，存在一个不同的Word翻译版本。 　　对中文Word请在指定处插入。

在图片中写入文字(写入文字后按回车键)，Delphi 图片合成 效果，图片与字符的合并，在图片中写入文字，就像PhotoShop中完成的效果，有兴趣的参考源码吧。