-
Delphi 渐变的RGB空心色环绘制源码演示
Delphi渐变圆形的实现方法，RGB色环空心绘制演示源码：
oBmp := TBitmap.Create; //为了代码整齐就不写try了
oBmp.PixelFormat := ABitmap.PixelFormat;
oBmp.Width := ABitmap.Width;
oBmp.Height := ABitmap.Height;
BitBlt(oBmp.Canvas.Handle, 0, 0, oBmp.Width, oBmp.Height, ABitmap.Canvas.Handle, 80, 80, SRCCOPY); //要拷贝的位图
oRgn := CreateEllipticRgn(0, 0, 100, 100); //创建圆形区域
SelectClipRgn(ABitmap.Canvas.Handle, oRgn); //选择剪切区域
ABitmap.Canvas.Draw(0, 0, oBmp); //位图位于区域内的部分加载
- 2022-03-21 13:09:53下载
- 积分：1
-
Delphi 实现图像热点功能
Delphi 实现图像热点功能，实现一张图片上不同形状区域的热点，定义椭圆形、四边形、三角形的区域变量的热点，相关代码如下：
var
thepoint:array [1..8] of tpoint;//存储多边形顶点坐标
count:integer;
pointnum:array [1..2] of integer;
begin
//四边形顶点坐标，首末点封闭
thepoint[1]:=point(135,99);
thepoint[2]:=point(105,183);
thepoint[3]:=point(129,201);
thepoint[4]:=point(188,92);
thepoint[5]:=point(135,99);
count:=5;//四边形顶点数目，首末点为一点
fourE_rgn:=CreatePolygonRgn(thepoint,count,WINDING);//生成四边形区域
elli_rgn:=CreateEllipticRgn(64,221,231,263);// 生成椭圆形区域
//第一个三角形顶点坐标
thepoint[1]:=point(118,67);
thepoint[2]:=point(32,28);
thepoint[3]:=point(17,90);
thepoint[4]:=point(118,67);
//第二个三角形顶点坐标
thepoint[5]:=point(155,44);
thepoint[6]:=point(202,91);
thepoint[7]:=point(277,44);
thepoint[8]:=point(155,44);
pointnum[1]:=4;//第一个三角形顶点数目
pointnum[2]:=4;//第二个三角形顶点数目
count:=2;//三角形数目
//生成由两个三角形构成的三角形区域
tri_rgn:=CreatePolyPolygonRgn(thepoint,pointnum,count,WINDING);
end;
- 2022-01-26 08:02:50下载
- 积分：1
-
Delphi 记录文件的读写
Delphi 记录文件的读写，这个程序非数据库程序，实际上也不是文件读写程序，只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据，确定后，会将数据添加到主窗口的StringGrid中，然后通过修改命令，从StringGrid中再读取出数据，进行修改保存，演示了文件内容的读取和写入的操作过程 。
- 2022-02-12 09:49:41下载
- 积分：1
-
Delphi添加图层蒙版
Delphi添加图层蒙版，运行本程序后，在屏幕上添加一层阴影，透明度大概在70%左右，可看作是在屏幕上方蒙了一层薄膜的感觉，代码简单：procedure TForm1.FormCreate(Sender: TObject);
var
bTrans: Byte;
OldStyle: Integer;
begin
form1.Color := clGradientActiveCaption;
WindowState := wsMaximized;
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
OldStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT);
bTrans := 128;
SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA);
end;
- 2022-02-06 10:25:25下载
- 积分：1
-
Delphi 当鼠标和键盘在一定时间没有动作时关闭程序
Delphi 当鼠标和键盘在一定时间没有动作时关闭程序，这是一个智能化程序，类似于屏保，当一定时间没有操作时，会关闭软件，运行的技术也不很高深，有兴趣的可下载源代码研究学习。
- 2022-10-11 13:05:03下载
- 积分：1
-
Delphi 使用快捷键保存数据至SQLSERVER
Delphi 使用快捷键保存数据，这里是将数据保存在SQLSERVER数据库中，测试前请连接好数据库哦。
- 2022-07-24 01:07:01下载
- 积分：1
-
Delphi在窗口中单击左键弹出菜单
Delphi在窗口中单击左键弹出菜单，在运行的窗体空白外，单击鼠标左键，弹出主菜单，其实和右键 菜单 是一样的原理，希望通过这个简单的例子，了解自定义窗口菜单的实现方法。
- 2023-09-08 18:20:03下载
- 积分：1
-
一个无标题栏窗体 如何拖动？Delphi方法示例
本源码主要演示，Delphi如何拖动一个无标题栏的窗体，此前记得与大分享过不少VB类的相似源码，大部分情况下，我们习惯拖动窗口的标题栏来移动窗口，现在我们把窗口的标题栏去掉了，那么是如何实现窗口的拖动呢？其实我们可以拖动窗口的主窗口部位，同样可以拖动窗口，而且这样似乎更方便操作，关于代码的实现，请大家下载源码后，查看Unit1.pas文件。
- 2022-09-30 14:35:03下载
- 积分：1
-
Delphi 浏览性能数据库
Delphi 浏览性能数据库，选择单个、本地的计数器，显示选择计数器的信息。
- 2023-01-12 15:25:04下载
- 积分：1
-
Delphi 自定义播放窗口
Delphi 自定义播放窗口，指定视频显示窗口，本源码演示的重点主要是播放器窗口外观的设计，调用了外部的一张jpg图片做为播放器的主窗口，让窗口风格首先看上去具有播放器程序的风格，因此，在美化窗口时如何使用jpg格式的图片，是本例要表现的重点功能，希望对窗体设计感兴趣的Delphi初学者好好学习研究一番哦。
本播放器虽然重在演示窗口功能的实现，不过它真的可以播放视频文件，比如mpg格式的文件。
- 2022-05-25 21:56:20下载
- 积分：1
