-
Delphi 制作的文字屏保
Delphi 制作的文字屏保，文字交替变化，晃动鼠标结束屏保。本程序的亮点是对文字动画效果的生成和控制。具有文字渐变和水平平移动画。
- 2022-03-28 23:49:31下载
- 积分：1
-
Delphi获取BMP图片指定点RGB值
delphi获取图片指定点RGB颜色值，载入一张BMP图像，鼠标单击图像任意处，将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成，获取这些分量值，就可以改变这些值，从而改变颜色，为程序的进一步处理提供基础保障，获取RGB颜色分量，相关代码如下：
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
image1.Picture.LoadFromFile(OpenPicturedialog1.FileName);
Form1.Canvas.Draw(0,0,image1.Picture.Bitmap);
end;
end;
- 2023-09-03 19:00:03下载
- 积分：1
-
Delphi 如何定义自已的鼠标单击事件
Delphi 如何定义自已的鼠标单击事件，本程序定义了监测鼠标中轮的事件，当用户按下鼠标中轮时，将监测到运作类型，并弹出窗口返回结果。
- 2022-05-13 22:55:23下载
- 积分：1
-
Delphi 使用API函数拔号
Delphi 使用API函数拔号，拨号程序，基于api的方法实现，有兴趣下载源码参考一番。
- 2022-01-26 01:52:58下载
- 积分：1
-
Windows 剪贴板高级编程-Delphi源码实例
Windows 剪贴板高级编程-Delphi源码实例，其实也不是什么高级编程，挺基础的剪贴板应用。学习如何在Delphi环境下读取Windows剪贴板的内容。在编写一些系统辅助类的软件中，可使用到这些小技巧。以下代码：将剪贴板内容读取出来，在代码的执行放入一个按钮事件中：
procedure TForm1.Button2Click(Sender: TObject);
var
DataRec: TDataRecord;
Data: THandle;
PData: Pointer;
begin
Data := Clipboard.GetAsHandle(CF_CUSTOMFORMAT);
if Data = 0 then Exit;
PData := GlobalLock(Data);
Move(PData^, DataRec, GlobalSize(Data));
GlobalUnlock(Data);
with DataRec do
ShowMessage(Name + #13#10 + Sex + #13#10 + Hobby);
end;
- 2022-04-22 08:40:48下载
- 积分：1
-
Delphi 百叶窗的方式显示图像
百叶窗效果的图像显示，这个效果我觉得大家不会陌生吧，在电视上、电脑上，这种切换图片显示的方式还是挺常见的，像百叶窗的样式，本效果重在演示图像的解析。
- 2022-02-04 23:25:14下载
- 积分：1
-
Delphi 计算正负数绝对值
Delphi 返回指定数值的绝对值，计算正负数绝对值的例子，FloatToStr(Abs)函数用法代码，示例中计算了小数、整数两种数据类型的绝对值，单击对应的箭头，即可查看计算结果，对应的三种计算方法，请参见以下代码：
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Edit2.Text := FloatToStr(Abs(-1.5));
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Edit4.Text := FloatToStr(Abs(-200));
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Edit6.Text := FloatToStr(Abs(-1.80));
end;
- 2022-06-13 12:40:35下载
- 积分：1
-
Delphi 判断文件是否被占用
Delphi 判断文件是否被占用，这个在删除的时候，可以添加上此功能，因为文件占用的话，用户删除时会出错，用本代码可以先判断一下文件是否被占用，用弹窗方式告诉用户是否可以删除，如果没有被占用，则程序进行下一步处理。下面简要了解一下判断的具体代码（局部）：
on E:EInOutError do
begin
if e.ErrorCode=32 then//文件正在被使用
begin
result:=true;
exit;
end;
end;
更完整的可编译源码，请下载。
- 2023-09-02 10:00:03下载
- 积分：1
-
Delphi 显示文件的播放进度
Delphi 显示文件的播放进度，使用了Timer实现对进度的计算和显示。
- 2022-05-28 13:11:17下载
- 积分：1
-
Delphi实现RGB色环的绘制源码 XE10.2+WIN764
Delphi实现RGB色环的绘制源码 XE10.2+WIN764，鼠标移动时提取颜色RGB的值,可以设置中心圆是否是透明的，RGB色环的代码绘制，传入图片的大小,扣出中心的黑色圆,输入图片与中心圆的半径。这个色环的颜色十分精细，过渡十分自然，本例子代码的参考价值还是挺大的。
- 2022-06-27 11:06:18下载
- 积分：1
