-
delphi开发的谷歌翻译工具内含源码
delphi开发的谷歌翻译工具，使用该工具可以不用打开浏览器，然后输入谷歌翻译地址才能进行翻译工作，
而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。
同时，你拿到此源码还可以进行二次开发，以满足你更多需要和想象。
- 2022-01-25 22:56:02下载
- 积分：1
-
在Delphi中进行 YCrCb RGB 颜色值转换
在Delphi中进行 YCrCb RGB 颜色值转换，载入一张测试图片，右侧显示的转换后的颜色图像，文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子，帮你了解一下YCrCb向RGB颜色值的转换过程，转换方法和思路，本源码中则是具体的实战代码，请下载后研究。
- 2022-05-23 08:16:07下载
- 积分：1
-
Delphi 获取磁盘序号
Delphi 获取磁盘序号，获取序号非磁盘编号，也不是序列号。运行后的效果如图所示，应该是所选择的磁盘在我的电脑中的排列序号。
操作时，只需选择对应的盘符，然后单击按钮即可，请参见测试截图所示。
- 2022-07-24 20:22:04下载
- 积分：1
-
Delphi 监控剪贴板的文字内容
Delphi 监控剪贴板的文字内容，这个监控程序可以监控复制到剪切板的文字信息，图片暂时不能监控到，具体的监控实现如下：
NextformHwnd:HWND;//观察链中下一个窗口句柄
procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD;
//处理WM_DRAWCLIPBOARD消息过程
{ Public declarations }
//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口
SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);
//查询剪贴板中特定格式的数据内容
if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then
begin
//处理剪贴板中内容
memo1.Lines.Clear;
memo1.Lines.Add(Clipboard.asText);
end;
- 2022-01-22 10:48:45下载
- 积分：1
-
Delphi 实现的窗体下拉动画效果
Delphi 实现的窗体下拉动画效果，以下拉动画的方式显示一个窗口，关闭时同样有动画效果，只不过是上拉效果，让窗体变生成了，传统的窗口打开方式的确会让人觉得不新奇了，关于下拉和上拉，关键代码先帖上来，完整实例请下载本源码：
begin
AnimateWindow(Self.Handle, 250, AW_VER_NEGATIVE or AW_HIDE);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(Self.Handle, 250, AW_VER_POSITIVE);
end;
- 2022-02-22 05:35:01下载
- 积分：1
-
在Windows7 中调用系统的日期时间设置窗口（Delphi）
Delphi在Windows7 中调用系统的日期时间设置窗口，在Delphi程序中，调用Windows中的指定窗口，本例是介绍在Windows7环境下调用系统的日期时间设置窗口，即控制面板中的日期时间设置面板，在Windows XP中同样适用，win8或win10下未做测试。
- 2023-08-01 17:35:04下载
- 积分：1
-
Delphi 控制Canvas上的直线点跟随鼠标移动
Delphi 怎样让Canvas上直线的一个端点跟着鼠标跑，控制Canvas上的直线点跟随鼠标移动，其实这就是画线的基本方法，直线的一端确定后，另一端需要鼠标移动来指定端点，本程序的功能就是让线段的另一头跟随鼠标移动，以确定线段的最终位置。
- 2022-02-25 18:56:03下载
- 积分：1
-
Delphi 绘制艺术图案
Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。
self.ClientHeight:=200;
self.ClientWidth:=200;
r:=self.ClientWidth/2;
Sect:=20;
for i:=0 to Sect-1 do
begin
x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2);
y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2);
end;
- 2022-01-28 10:36:40下载
- 积分：1
-
用Delphi播放AVI文件
用Delphi播放AVI文件，AVI是一种视频格式，其实在Windows系统中，有很多的AVI小视频，用于实现Windows窗口中的小动画效果，在很多时候，我们可以借助播放AVI视频来实现窗体上的一些动画效果，比如Loading进度条、Office助手等。
- 2023-03-12 02:55:04下载
- 积分：1
-
形象的电子表-Delphi程序
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。
- 2022-01-27 12:29:32下载
- 积分：1
