捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:RealOneProgressBar
xqt_qingtang 33942 2008/4/28 22:41:24
RealTrackBar1Change
简值是不能用,
xqt_qingtang 33941 2008/4/28 22:38:08
用MOUSE CLIICK, VALUE值是乱来的!
qq757526555 31103 2007/9/5 16:47:45
  有谁能做出像魔兽游戏处始时的进程条,能随Position增大,进程条颜色加深,两边还会发亮,请高手做一做。
  有一些资料用switch..case做的,不过,颜色过度不漂亮。不知道Dot Net是怎么做的。
leanang 30642 2007/8/3 12:17:47
miky 说得即没道理又没脑子,简直是鬼话!Shit!!
miky 22519 2006/3/30 16:19:28
下载看了下,作者半小时做出来的,不敢用,幸好没安装,删之。
net_morning 21992 2006/3/8 20:20:57
看不出跟系统带的那个相比好在哪儿
rxjhccna 19418 2005/11/23 3:22:52
我晕!试验了半天才发现真的Very easy啊!就象yzdbs兄弟说的一样:
设置 Position就可以了,如:RealOneProgressBar1.Position:=50;
不会用的自己编写个循环程序就明白了。
这里我随便举个例子:
第一步:新建立个窗体;
第二步:丢上RealOneProgressBar和两个button(BitBtn);
第三步:将RealOneProgressBar的Position属性设置为0,Max属性设置为10000;然后将
BitBtn1的Caption属性设为‘演示’,BitBtn2的Caption属性设为‘还原’;
第四步:给两个button加上以下程序:
    演示button的程序如下:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
  for i:=0 to self.RealOneProgressBar1.Max do
  begin
  self.RealOneProgressBar1.Position:=i;
  if i=10000 then
  Break;
  end;
  MessageDlg(' 演示成功,谢谢观看!请退出。',mtInformation,[mbOK],0);
end;

  还原button的程序如下:
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  self.RealOneProgressBar1.Position:=0;
end;
按F9运行下看看效果吧!还不会用RealOneProgressBar的现在应该明白点了吧!^_^
crystone 14410 2005/4/28 11:15:41
怎么没有可运行的文件呢?
liangkove 12358 2005/2/1 13:15:37
谁有这控件的应用例子,谢谢共享一下了.
liangkove@126.com
sealyu 8868 2004/10/23 22:08:20
怎么下载不了啊?
quanyi 6922 2004/7/17 20:11:17
请问那为知道播放视频文件时,实现WINDVD5的桌面播放效果!
quanyi 6921 2004/7/17 20:05:39
还可以啊!
可惜说的太简单了!
yzdbs 4337 2004/4/27 9:59:29
设置 Position就可以了,如:RealOneProgressBar1.Position:=50;
dfw@110128 2916 2004/3/9 11:53:39
好漂亮的小东东^_^,果然是delphi高手
wflaugh 1153 2003/12/21 8:49:41
这个控件怎么用?有没有中文的帮助文件?
第一页 上一页 下一页 最后页 有 15 条纪录 共1页 1 - 15
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表