-
Delphi数据库编程案例：教材管理系统源码
这是一款基于Delphi和Access数据库的编程案例：教材管理系统源码，经过修正完善后可作为学校的教材管理程序，功能模块主要有：系统功能设置、教材资料输入、教材出入库管理、教材信息管理等。
- 2022-04-14 14:29:20下载
- 积分：1
-
方格变换的Delphi图像显示，类似于马赛克
方格变换的Delphi图像显示，类似于那种动态的马赛克效果，电视上经常见到这种图像切换的效果，当然网页上的一些焦点图切换也会常见到这种图像转场的过渡效果，相比直来直去的切换，增加了一些视觉效果，不至于那么单调。
本效果适用的图像格式了BMP位图，其它图片格式未做测试。
- 2022-07-18 02:39:41下载
- 积分：1
-
Delphi7 获取文件的修改时间
Delphi7 获取文件的修改时间，这是一个文件操作实例源代码，获取到文件被修改的时间，代码简单，适合Delphi新手学习参考。
- 2022-03-25 03:51:22下载
- 积分：1
-
Delphi 百叶窗的方式显示图像
百叶窗效果的图像显示，这个效果我觉得大家不会陌生吧，在电视上、电脑上，这种切换图片显示的方式还是挺常见的，像百叶窗的样式，本效果重在演示图像的解析。
- 2022-02-04 23:25:14下载
- 积分：1
-
在Windows7 中调用系统的日期时间设置窗口（Delphi）
Delphi在Windows7 中调用系统的日期时间设置窗口，在Delphi程序中，调用Windows中的指定窗口，本例是介绍在Windows7环境下调用系统的日期时间设置窗口，即控制面板中的日期时间设置面板，在Windows XP中同样适用，win8或win10下未做测试。
- 2023-08-01 17:35:04下载
- 积分：1
-
Delphi 播放指定avi-mid-wav文件
Delphi 播放指定avi-mid-wav文件,这几种都是音频格式，因此这个可以说是播放音频文件的例子，控制面板中包括了常用的播放控制按钮，在此基础上，可写出一个Delphi音乐播放器，当然本源码比较早了，适合学习一些简单的Delphi音频编程技巧。
procedure TForm1.N2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
with MediaPlayer1 do
begin
Filename := OpenDialog1.FileName ;
Open;
DisPlayrect := Rect(1,1,Panel2.Width ,Panel2.Height );
Notify := true;
end;
end;
end;
- 2023-05-08 02:15:02下载
- 积分：1
-
Delphi 编写的VOD视频点播及后台管理系统
Delphi 编写的VOD视频点播及后台管理系统，这套系统既是一套多媒体系统，也是一套数据库系统，VOD部分的功能有：KTV管理系统，编号点歌、轻音乐、拼音点歌、迪士高、明星点歌、DVD影院、播放列表、歌曲管理等。
- 2022-01-24 15:29:37下载
- 积分：1
-
Delphi 从剪贴板中读取图片
Delphi 从剪贴板中读取图片，Windows剪帖板相信大家都知道吧，这个程序可查看剪贴板中的图像，将图片另保存，可看作是一个查看剪贴板中图片的一个例子。
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Clipboard().Assign(Image1.Picture.Bitmap);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Clipboard().HasFormat(CF_BITMAP) then
Image2.Picture.Bitmap.Assign(Clipboard());
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Image2.picture := nil;
end;
end.
- 2022-06-13 13:08:12下载
- 积分：1
-
源码演示Delphi 如何放大和缩小图像【图片】
源码演示Delphi 如何放大和缩小图像【图片】，我们这个例子可以学习了解如何使用Delphi编程代码，放大或缩小一张图片，这里把放大和缩小图片的基数写在按钮事件中，用户每次单击按钮，就会按照一定的缩放倍数放大或缩小图像，本示例测试图片已写入程序中，编译运行后操作并演示效果，对图像的缩放部分，重点参考以下代码：
图片缩小操作：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if image1.Height>50 then
begin
image1.Height:=image1.Height-10;
image1.Width:=image1.Width-13;
end;
end;
图片放大操作：
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if image1.Height
- 2023-04-18 03:35:03下载
- 积分：1
-
Delphi 7.0 After提取字符串中指定子字符串后的字符串
Delphi 7.0 提取字符串中指定子字符串后的字符串，这个平时在字符处理时候使用几率也挺高的，获取指定字符串后面的字符串，比如获取扩展名等也可以用此方法，本例中要用到After函数，测试时，当单击按钮时，执行以下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := After(Edit2.Text,Edit1.Text);
end;
end.
- 2022-03-28 10:50:27下载
- 积分：1
