procedure TAddProgressbarFrm.AddProgressToStatus;var i,Count,StatusPanelWidth: Integer;begin FProgress := TProgressbar.Create(AddProgressbarFrm); {定义进程条的最大值} Count := 3000; StatusPanelWidth := Status.Panels.Items[2].Width; {改变进度条宽度} Status.Panels.Items[2].Width := 150; Status.Repaint; with FProgress do begin Top := FStatusDrawRect.Top; Left := FStatusDrawRect.Left; {设定进程条的宽度和高度} Width := FStatusDrawRect.Right - FStatusDrawRect.Left; Height := FStatusDrawRect.Bottom - FStatusDrawRect.Top; Visible := True; try Parent := Status; {进程条的最小和最大值} Min := 0; Max := Count; Step := 1; for i := 1 to Count do Stepit; MessageBox(Handle,#13+‘现在,进程条将要从内存中被释放‘+#13+#13 +‘ [刀剑如梦软件创作室]‘,‘信息提示‘,MB_OK+MB_ICONINFORMATION); finally {从内存中释放进程条} Free; end; end; {恢复状态条的宽度} Status.Panels.Items[2].Width := StatusPanelWidth;end;
2024-10-10 11:03:02 191KB 源码 系统相关类
1
项目架构:B/S架构 开发语言:Java语言 开发软件:idea eclipse 前端技术:Layui、HTML、CSS、JS、JQuery等技术 后端技术:JAVA 运行环境:Win10、JDK1.8 数 据 库:MySQL5.7/8.0 运行服务器:Tomcat7.0 CSDN太坑了,设置是0积分,动态调整下载积分太多,想要源码的私信我吧。
2024-06-26 01:02:00 53.75MB
1
送php推送脚本和快速收录推送脚本!!! 最新版的小说站群程序,php小说泛站群系统程序,小说泛目录站群源码,新版小说泛站群系统源码,小说站群源码,小说泛目录站群源码PHP语言操作简便 泛目录无需过多介绍的,不懂的可以去百度,海量关键词霸屏!支持ascii干扰码,轻松过算法! 程序每次刷新都会自动随机切换一个新的小说页面,模拟真实更新站点,非真实小说站的! 配合宝塔定时任务,自动推送,有能力的自己做下模板效果更佳!
2024-05-30 07:42:51 12.99MB
1
一个结合数据库实现的VB出租 租赁系统,原型是一个光碟出租管理系统,可改造成其它生活相关的出租管理系统,数据库采用的是Access,比较简单些,完成基本的租赁管理功能,比如添加、出租、归还、退租、未还处理,会员续费,查询、用户设置,每日、每月结算,结算后可以打印或生成报表。
2024-05-21 13:52:45 661KB VB源码-系统相关
1
基于stm32单片机的物联网WiFi智能快递柜设计(电路图+源码+系统资料)
2024-04-28 17:19:03 50.82MB
1
VB软键盘源码,蓝色风格,一个屏幕键盘制作实例,附有详细的技术说明,在一些对应用程序安全要求较高的场合,使用屏幕键盘进行输入就显得很重要了,这个源码的例子很详细的说明了如何实现小键盘,推荐下载。
2024-04-03 16:25:40 59KB VB源码-系统相关
1
易语言系统垃圾清理源码,系统垃圾清理
1
修改系统时间_Delphi修改windows7系统时间的开源源码,按照提示输入新的时间,点击“修改”按钮后即可改变windows当前时间,主要是学习delphi7和windows之间的时间接口,如何操作等。相关代码如下:   For i := 0 to Form1.ComponentCount -1 do   begin    if ComponentS[i] is TEdit then    begin    if TEdit(Components[i]).Text = '' then    begin    Application.MessageBox('请将日期输入完整!','提示',64);    Exit;    end;    end;   end;   SetDate.wYear := StrToInt(Edit1.Text);   SetDate.wMonth := StrToInt(Edit2.Text);   SetDate.wDay := StrToInt(Edit3.Text);   SetDate.wHour := 5;   SetDate.wMinute := 0;   SetDate.wSecond := 0;   SetSystemTime(SetDate);   ……
2024-01-16 09:58:55 6KB Delphi源码-系统相关
1
VB代码编写实现的Exe文件反编译工具,使用这个程序你可以看到EXE内部的函数、程序代码等,方便你对程序代码有一个更深层次的理解。
2024-01-15 10:10:17 164KB VB源码-系统相关
1
java发邮件 基于Javamail的邮件收发系统是一款简单、方便、快捷的邮件系统。它能实现邮件的接收与发送,并能完成附件的传输,具有较好的人机交互性,易于使用。 开发环境:JDK1.6 + Windows平台 开发技术:Javamail 开发工具:Eclipse3.4 运行环境:PC上需安装JDK1.6,且正确配置环境变量。 系统基本功能如下: (1) 收取并显示POP3邮件服务器上指定邮箱的邮件; (2) 使用SMTP邮件服务器发送邮件; (3) 邮件附件的发送与接受; (4) 删除邮件; 具体操作步骤如下: 1、 打开javamailsystem文件夹,找到javamail.jar可执行文件,双击该执行文件,即可打开Javamail邮件收发系统客户端软件。进入该系统后,首先选择“POP3/SMTP设置”按钮,对收发邮件所需的邮件服务器主机、收发邮件账号及密码信息进行设置。 设置举例如下: POP3属性 POP3服务器:pop3.163.com(或pop3.sina.com或pop3.126.com) Email地址:。。。 详细内容请下载项目查看!!!
2024-01-06 16:25:03 37.7MB java源码 毕业设计 课程设计 项目源码
1