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 |
这个控件怎么用?有没有中文的帮助文件? |