-
Delphi 获取两个子字符串之间的字符个数
Delphi 获取两个子字符串之间的字符个数，也就是这个字符串由A/B/C三个字符组成，本例子是求A/C中间的所有字符串的个数，空格同样也包括在内。定义两个函数即可实现本功能：
Function TForm1.Strcount( s, s1, s2 : string ): integer;
var
i,j,slen : integer;
begin
i := pos( s1, s );
j := pos( s2, s );
slen := Length(s1);
if j >= i then
Result := j - i - slen
else
Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
n : integer;
begin
n := Strcount(Edit1.Text,Edit2.Text,Edit3.Text);
showmessage(IntToStr(n));
end;
- 2022-01-26 07:45:23下载
- 积分：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窗口淡入淡出渐变fadein fadeout动画效果
Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果，除了渐变，还有其它的动画形式，比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变，其它动画效果被注释掉了，如果你想用，可以去掉注释标记。
//淡入效果
//AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE);
//从中心扩散
//AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE);
//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);
//水平从左到右
//AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE);
//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE);
//水平从右到左
//AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE);
//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE);
//垂直从上到下
//AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE);
//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE);
//垂直从下到上
- 2022-06-11 17:51:21下载
- 积分：1
-
Delphi获取从开机到现在CPU运行的周期数
Delphi获取从开机到现在CPU运行的周期数，不是获取开机时间多长，是CPU的周期数，显示的值为数字字符串，运行效果如示例截图所示。代码段：
begin
Edit1.Text := inttostr(periodicity);
end;
- 2022-07-05 04:51:29下载
- 积分：1
-
方格变换的Delphi图像显示，类似于马赛克
方格变换的Delphi图像显示，类似于那种动态的马赛克效果，电视上经常见到这种图像切换的效果，当然网页上的一些焦点图切换也会常见到这种图像转场的过渡效果，相比直来直去的切换，增加了一些视觉效果，不至于那么单调。
本效果适用的图像格式了BMP位图，其它图片格式未做测试。
- 2022-07-18 02:39:41下载
- 积分：1
-
Delphi实现多次渲染的RGB色环颜色渐变特效源码
Delphi实现RGB色环多次渐变，生成一个渐变的圆形，颜色渐变步长可自定义，在代码中，为了绘制出来的圆好看，分成四个部分进行绘制，此部分代码展示如下：
if (degree >= 0+qki) and (degree 45+qki) and (degree 135+qki) and (degree 215+qki) and (degree 315+qki) and (degree
- 2022-04-26 22:54:00下载
- 积分：1
-
Delphi 计算1到10之间的奇数和【源码】
Delphi 推荐到奇数，并计算1到10之间的奇数求和，这是个简单的数学问题，数学水平高，写出这种小程序并不难，趁机把代码帖出来吧：
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
j:=0;
For i := 1 to 10 do
begin
if i mod 2 =0 then
Continue;
j := j+i;
Edit1.text := IntToStr(j);
end;
end;
- 2023-02-23 03:45:04下载
- 积分：1
-
在Delphi中进行 YCrCb RGB 颜色值转换
在Delphi中进行 YCrCb RGB 颜色值转换，载入一张测试图片，右侧显示的转换后的颜色图像，文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子，帮你了解一下YCrCb向RGB颜色值的转换过程，转换方法和思路，本源码中则是具体的实战代码，请下载后研究。
- 2022-05-23 08:16:07下载
- 积分：1
-
Delphi 进程通讯的实现实例源码
这是一个Delphi利用自定义消息实现的进程内部通讯的例子，附上了完整的源码，运行的效果如图所示。
本程序作者：王毅 , 陈立亮 , 刘蓉，在Windows2000环境下用Delphi6.0调试通过。
本例子中主控程序采用FindWindow()函数找寻底层工作程序，从而实现通讯。底层工作程序在调试时请先生成可执行文件，然后关闭Delphi编辑器，运行可执行文件进行调试。如果不关闭Delphi编辑器，底层工作程序窗口在处于最小化时将无法正常工作，因为FindWindow()返回的是Delphi编辑器中该窗口的句柄。
- 2022-07-04 09:38:31下载
- 积分：1
-
Delphi在窗口中单击左键弹出菜单
Delphi在窗口中单击左键弹出菜单，在运行的窗体空白外，单击鼠标左键，弹出主菜单，其实和右键 菜单 是一样的原理，希望通过这个简单的例子，了解自定义窗口菜单的实现方法。
- 2023-09-08 18:20:03下载
- 积分：1
