非常好用的Delphi相册播放源代码

OStack程序员社区-中国程序员成长平台 › 门户 › 编程›综合其他

原作者: [db:作者] 来自: [db:来源] 收藏邀请

非常好用的DELPHI相册播放源代码

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel,

LMDSimplePanel, jpeg, ExtCtrls, LMDCustomParentPanel, LMDBackPanel,

FileCtrl, ComCtrls, Spin, RzSpnEdt;

type

TForm1 = class(TForm)

Timer1: TTimer;

Button2: TButton;

Label1: TLabel;

LMDSimplePanel2: TLMDSimplePanel;

LMDSimplePanel1: TLMDSimplePanel;

Image2: TImage;

Image3: TImage;

FileListBox1: TFileListBox;

Timer2: TTimer;

RadioGroup1: TRadioGroup;

Label2: TLabel;

RzSpinner1: TRzSpinner;

Timer3: TTimer;

Edit1: TEdit;

procedure Timer1Timer(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure LMDSimplePanel2Move(Sender: TObject);

procedure LMDSimplePanel1Move(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FileListBox1Click(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure RzSpinner1Change(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

var

times,i:word;

begin

case RadioGroup1.ItemIndex of

0: begin

if image3.Left=0 then

begin

edit1.Text:=inttostr(strtoint(edit1.Text)+1);

end;

if self.LMDSimplePanel1.Left<strtoint(label1.Caption)-self.LMDSimplePanel1.Width then

begin

self.LMDSimplePanel1.Left:=strtoint(label1.Caption);

end

else

begin

self.LMDSimplePanel1.Visible:=true;

self.LMDSimplePanel1.Left:=self.LMDSimplePanel1.Left-1;

self.image3.Width:=self.LMDSimplePanel1.Width;

self.image3.Height:=self.LMDSimplePanel1.Height;

self.image3.Top:=self.LMDSimplePanel1.Top;

self.image3.Left:=self.LMDSimplePanel1.Left+self.image3.Width;

end;

1: begin

if self.LMDSimplePanel1.Left=(self.LMDSimplePanel1.Width) then

begin

edit1.Text:=inttostr(strtoint(edit1.Text)+1);

end;

if self.LMDSimplePanel1.Left>strtoint(label1.Caption)+self.LMDSimplePanel1.Width then

begin

self.LMDSimplePanel1.Left:=strtoint(label1.Caption);

end

else

begin

self.LMDSimplePanel1.Visible:=true;

self.LMDSimplePanel1.Left:=self.LMDSimplePanel1.Left+1;

self.image3.Width:=self.LMDSimplePanel1.Width;

self.image3.Height:=self.LMDSimplePanel1.Height;

self.image3.Top:=self.LMDSimplePanel1.Top;

self.image3.Left:=self.LMDSimplePanel1.Left-self.image3.Width;

end;

2: begin

if image3.top=0 then

begin

edit1.Text:=inttostr(strtoint(edit1.Text)+1);

end;

if self.LMDSimplePanel1.top>strtoint(label2.Caption)+self.LMDSimplePanel1.Height then

begin

self.LMDSimplePanel1.Top:=strtoint(label2.Caption);

end

else

begin

self.LMDSimplePanel1.Visible:=true;

self.LMDSimplePanel1.Left:=self.LMDSimplePanel1.Left;

self.LMDSimplePanel1.top:=self.LMDSimplePanel1.top+1;

self.image3.Width:=self.LMDSimplePanel1.Width;

self.image3.Height:=self.LMDSimplePanel1.Height;

self.image3.Left:=self.LMDSimplePanel1.Left;

self.image3.Top:=self.LMDSimplePanel1.Top-self.image3.Height;

end;

3: begin

if (self.LMDSimplePanel1.top=0 ) or (image3.top=-self.image3.Height) then

begin

edit1.Text:=inttostr(strtoint(edit1.Text)+1);

end;

if self.LMDSimplePanel1.top<strtoint(label2.Caption)-self.LMDSimplePanel1.Height then

begin

self.LMDSimplePanel1.Top:=strtoint(label2.Caption);

end

else

begin

self.LMDSimplePanel1.Visible:=true;

self.LMDSimplePanel1.Left:=self.LMDSimplePanel1.Left;

self.LMDSimplePanel1.top:=self.LMDSimplePanel1.top-1;

self.image3.Width:=self.LMDSimplePanel1.Width;

self.image3.Height:=self.LMDSimplePanel1.Height;

self.image3.Left:=self.LMDSimplePanel1.Left;

self.image3.Top:=self.LMDSimplePanel1.Top+self.image3.Height;

end;

self.Timer1.Enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

application.ProcessMessages;

edit1.Text:='0';

image2.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pic\'+self.FileListBox1.Items[0]);

image3.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pic\'+self.FileListBox1.Items[1]);

timer1.Enabled:=not timer1.Enabled;

timer2.Enabled:=not timer1.Enabled;

label1.Caption:=inttostr(self.LMDSimplePanel1.Left);

label2.Caption:=inttostr(self.LMDSimplePanel1.top);

self.LMDSimplePanel1.Visible:=not timer2.Enabled;

if timer1.Enabled=true then

begin

button2.Caption:='停止';

end

else

begin

button2.Caption:='开始播放';

end;

procedure TForm1.LMDSimplePanel2Move(Sender: TObject);

begin

self.LMDSimplePanel1.Left:=0;

self.LMDSimplePanel1.Top:=0;

self.LMDSimplePanel1.Width:=self.LMDSimplePanel2.Width;

self.LMDSimplePanel1.Height:=self.LMDSimplePanel2.Height;

image3.Left:=0;

image3.Top:=0;

image3.Width:=self.LMDSimplePanel2.Width;

image3.Height:=self.LMDSimplePanel2.Height;

end;

procedure TForm1.LMDSimplePanel1Move(Sender: TObject);

begin

self.LMDSimplePanel1.Left:=0;

self.LMDSimplePanel1.Top:=0;

self.LMDSimplePanel1.Width:=self.LMDSimplePanel2.Width;

self.LMDSimplePanel1.Height:=self.LMDSimplePanel2.Height;

image3.Left:=0;

image3.Top:=0;

image3.Width:=self.LMDSimplePanel2.Width;

image3.Height:=self.LMDSimplePanel2.Height;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

FileListBox1.Directory:=ExtractFileDir(ParamStr(0))+'\pic'; //

self.LMDSimplePanel1.Left:=0;

self.LMDSimplePanel1.Top:=0;

self.LMDSimplePanel1.Width:=self.LMDSimplePanel2.Width;

self.LMDSimplePanel1.Height:=self.LMDSimplePanel2.Height;

image3.Left:=0;

image3.Top:=0;

image3.Width:=self.LMDSimplePanel2.Width;

image3.Height:=self.LMDSimplePanel2.Height;

end;

procedure TForm1.FileListBox1Click(Sender: TObject);

begin

image3.Picture.LoadFromFile(self.FileListBox1.FileName);

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

self.LMDSimplePanel1.Left:=0;

self.LMDSimplePanel1.Top:=0;

self.LMDSimplePanel1.Width:=self.LMDSimplePanel2.Width;

self.LMDSimplePanel1.Height:=self.LMDSimplePanel2.Height;

image3.Left:=0;

image3.Top:=0;

image3.Width:=self.LMDSimplePanel2.Width;

image3.Height:=self.LMDSimplePanel2.Height;

end;

procedure TForm1.RzSpinner1Change(Sender: TObject);

begin

timer1.Interval:=self.RzSpinner1.Value*5;

if self.RzSpinner1.Value=0 then

begin

self.LMDSimplePanel1.Visible:=false;

self.Image3.left:=0;

self.Image3.Top:=0;

end;

procedure TForm1.Timer3Timer(Sender: TObject);

begin

{image2.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pic\'+self.FileListBox1.Items[FileListBox1.count-FileListBox1.count]);

image3.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pic\'+self.FileListBox1.Items[FileListBox1.count-FileListBox1.count+1]);

}

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

if edit1.Text=inttostr(self.FileListBox1.Count) then

begin

edit1.Text:='1';

end;

if edit1.Text<>'0' then

begin

image3.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pic\'+self.FileListBox1.Items[strtoint(edit1.Text)]);

image2.Picture.LoadFromFile(ExtractFileDir(ParamStr(0))+'\pic\'+self.FileListBox1.Items[strtoint(edit1.Text)-1]);

end;

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

在matlab中读取trc文件发布时间：2022-07-18

《ComputationalStatisticswithMatlab》硬译发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

2023-10-27

florent37/ViewAnimator: A fluent Android

2022-08-15

florent37/Shrine-MaterialDesign2: implem

2022-08-17

CVE-2020-36276

2022-09-23

SimpleSoftwareIO/simple-sms: Send and re

2022-08-13

阅读排行榜

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：19145|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9973|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8317|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8686|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8628|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9643|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8611|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：7991|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8642|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7527|2022-11-06

客服电话

电子邮件

非常好用的Delphi相册播放源代码

请发表评论

全部评论

上一篇：

下一篇：

404labfr/laravel-impersonate: Laravel Im

bradtraversy/iweather: Ionic 3 mobile we

joaomh/curso-de-matlab

断牙刷新位置时间（断牙属性及刷新位置介绍

rugk/mastodon-simplified-federation: Sim

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053