-
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 Shadow窗口阴影立体效果
Delphi 制作立体窗口阴影效果，这个阴影看上去很明显，不过不是线性的，线性的实现起来要比这种阴影复杂一些。
ShadowWidth:integer; //用于确定阴影的宽度或高度
RightShadow:TForm; //主窗口的右边产生一个阴影窗口
BottomShadow:TForm; //主窗口的下部产生一个阴影窗口
procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;
- 2022-05-14 21:59:11下载
- 积分：1
-
Delphi 使用ESC键停止循环
Delphi 使用ESC键停止循环，示例演示程序，单击按钮开始循环，按下键盘ESC键，将停止循环。程序核心代码：
begin
for i:= 0 to 9999999 do
begin
Edit1.Text := IntToStr(i);
//允许应用程序在循环中可以处理消息
Application.ProcessMessages;
//用是 ESC 键放弁循环
if GetKeyState(VK_ESCAPE) and 128 = 128 then
Break;
end;
end;
- 2022-03-24 17:07:24下载
- 积分：1
-
Delphi 用获取路径的方法得到圆形窗体
Delphi 用获取路径的方法得到圆形窗体，制作实现一个非矩形窗口，可以说是一个不规则窗口了，圆形的窗口，标题栏、状态栏及窗口关闭等操作按钮均不邮了。圆形窗口的基本实现思路是根据路径创建不规则窗体，然后设置窗口为透明模式，部分代码如下：
dc:=self.Canvas.Handle;
BeginPath(dc);
//根据路径创建不规则窗体
SetBkMode(dc,TRANSPARENT);
//设置为透明模式
Ellipse(dc,20,20,220,220);
EndPath(dc);
region:=PathToRegion(dc);
SetWindowRgn(self.Handle,region,TRUE);
end;
- 2022-05-16 23:17:16下载
- 积分：1
-
Delphi 多帧动画播放
Delphi 多帧动画播放，Delphi将多幅连续的BMP图像显示在一起，形成了动画的效果，类似于GIF的类型动画。每一张图片都是一帧，将帧快速的连起来，就形成了动画效果。
- 2023-07-24 05:15:03下载
- 积分：1
-
Delphi在TListView中显示数据库
Delphi在TListView中显示数据库，ListView控件的简单用法，在日常的编程开发中，这个比较常用 。
self.ListView1.ViewStyle:=vsReport;
for i:=0 to Query1.FieldCount-1 do
begin
TempColumn:=self.ListView1.Columns.Add;
TempColumn.Caption:=Query1.Fields[i].FieldName;
end;
Query1.First;
while not Query1.Eof do
begin
TempItem:=self.ListView1.Items.Add;
TempItem.Caption:=Query1.Fields[0].AsString;
for i:=1 to Query1.FieldCount-1 do
begin
TempItem.SubItems.Add(Query1.Fields[i].AsString);
end;
Query1.Next;
end;
- 2023-06-25 00:05:04下载
- 积分：1
-
Delphi实现动态的窗口标题栏文字
Delphi实现动态的窗口标题栏文字，让标题栏文字滚动，有以下动态变化形式：标题左循环，标题左右移动，停靠右端，设置移动时间间隔，每隔多少毫秒移动一个字等。可以在标题上设置一些醒目的内容，再使用本效果，吸引使用者的注意，是一种很不错的提醒方式。
- 2022-01-27 16:11:55下载
- 积分：1
-
又一款基于数据库的Delphi图书管理系统
又一款基于数据库的Delphi图书管理系统，源代码完整供参考学习Delphi的数据库编程。
高手可在此基础上开发完善出功能更强大的图书管理系统。
本系统目前具备的功能模块有：基本信息设置、图上登记、注销及管理、读者管理、借阅管理、综合信息查询、图书登记等。
- 2023-06-04 01:55:03下载
- 积分：1
-
Delphi 使用Word作为自动化服务器
这个程序演示了使用Word作为自动化服务器，Delphi地自动化控制器是如何将一个查询结果插入到word文档中，返回应用参数.这个调用在英文和法文版的 Word中相同。对德文版的Word，这个过程名是翻译后的。如果这个过程不存在，存在一个不同的Word翻译版本，还可以插入中文Word，运行效果如图所示。
- 2022-04-29 13:18:27下载
- 积分：1
-
Delphi 格式化DataGrid表格中的数据
Delphi 格式化DataGrid表格中的数据，DataGrid网格列表在各种编程的数据库显示方面都使用广泛，因此对于Delphi的数据库编程，DataGrid的使用技巧是一定要撑握的，本源码所要演示的就是一个使用DataGrid的简单例子，将DataGrid表格中的数据格式式成你想要的格式，测试前请确保Delphi与数据库正常连接且有数据。
- 2022-01-25 15:23:01下载
- 积分：1
