-
Delphi 使用tfilestream方式复制文件
Delphi 使用tfilestream方式复制文件，你可参考本源码，学习一下OpenDialog、Tfilestream.Create、showmessage、CopyFile的用法，本实例复制文件，是通过读取文件流，保存文件流的方式复制，并不是使用命令复制文件。
- 2022-01-21 03:12:02下载
- 积分：1
-
Delphi 演示如何播放GIF动画
Delphi 演示如何播放GIF动画，其实就是在窗口中显示GIF图像，这是一种连续显示类似于动画效果的图像格式，在窗体上只要可以正常显示这种文件，就能实现播放功能，如示例截图所示的效果。
- 2023-05-10 00:50:04下载
- 积分：1
-
delphi windows远程桌面链接源码，带代理功能，支持win2012
delphi windows远程桌面链接源码，带代理功能，支持win2012 原创代码
- 2023-02-10 08:55:03下载
- 积分：1
-
Delphi 创建独立的子窗体 脱离父窗口但可通过父窗口关闭
Delphi 创建多个独立的子窗体 脱离父窗口而显示，但是却可通过父窗口关闭打开的所有子窗口，就是通过主窗口内的关闭按钮，关闭独立于父窗口之外的子窗口，这个功能我感觉很实用吧，源代码中也包括了多个子窗口的代码，父子窗口之间是如何关联起来的呢，请参见这个源代码实例 。
- 2022-01-25 17:06:08下载
- 积分：1
-
在输入时按回车移动光标到一下文本框-Delphi示例
Delphi实现回车移动焦点的功能，当用户在输入时按回车键，将移动光标到一下文本框，这个功能我觉得可很好的提升软件的操作体验，为实现快捷输入近了一步。具体代码请参考如下：
begin
if Key = 13 then
begin
keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下
keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //弹起
end;
end;
- 2022-08-21 20:36:32下载
- 积分：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实现RGB色环的绘制源码 XE10.2+WIN764
Delphi实现RGB色环的绘制源码 XE10.2+WIN764，鼠标移动时提取颜色RGB的值,可以设置中心圆是否是透明的，RGB色环的代码绘制，传入图片的大小,扣出中心的黑色圆,输入图片与中心圆的半径。这个色环的颜色十分精细，过渡十分自然，本例子代码的参考价值还是挺大的。
- 2022-06-27 11:06:18下载
- 积分：1
-
Delphi 图片颜色逐渐加深功能的实现
Delphi演示如何将一张图片的颜色加深，类似于调整对比度，不过本效果不加入了渐变加深的动画效果，按住按钮图片一直变暗下去，要知空间，你可看下以下代码：
Bitmap:=image1.Picture.Bitmap;
image1.Height:= Bitmap.Height;
image1.Width:= Bitmap.Width;
for i:=0 to 255 do
begin
sleep(10);
for y:=0 to Bitmap.Height-1 do
begin
pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色
for x:=0 to ((Bitmap.Width*3)-1) do
//递减颜色值，不同的递减值可改变不同的速度
if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1);
end;
Image1.Canvas.Draw(0,0,Bitmap);
Application.ProcessMessages; //让Application去处理消息队伍中的消息
end;
- 2022-03-23 16:34:19下载
- 积分：1
-
Delphi 全屏播放视频窗口
Delphi 全屏播放视频窗口，这是一个自动全屏的窗口，当你播放视频时，窗口会自动最大化，并且隐藏窗口的标题栏和状态栏，就像播放视频时的全屏效果一样。
- 2022-01-26 06:52:10下载
- 积分：1
-
取消窗体标题栏的关闭按钮-Delphi代码
Delphi 取消窗体标题栏的关闭按钮，也就是单击窗口右上角的关闭按钮，窗体并不会关闭，让关闭按钮失去了作用，用户可通过单击窗口中的自定义按钮来关闭窗口，这样就相当于取消了窗体标题栏中的关闭按钮。
- 2022-07-04 03:53:29下载
- 积分：1
