如何制作进程条界面？ |
|
尚未結案
|
|
ffprince
初階會員   發表：66 回覆：62 積分：25 註冊：2003-08-16 發送簡訊給我 |
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
引言: 1、小弟不知如何判断一个按钮按下后，其中时间要运行多久？ 用 GetTickCount PROCEDURE TForm1.button1Click(Sender:TObject); VAR LStart,LEnd:Integer; BEGIN LStart:=GetTickCount; //GetTickCount为取得当前时间函数 .... dosomething; .... LEnd:=GetTickCount; edit1.text:=FloatToStr((LEnd-LStart)/1000.0) 秒; //edtTime 是Tedit控件，用来显示间隔时间，除以1000是转化为s，不除就是ms END; 2、怎么实现在按钮按下后，在当前窗体前跳出显示进程条的窗体？ procedure TForm1.Button2Click(Sender: TObject); begin form2.show;//form2为“显示进程条的窗体” end; 3、当按钮触发的时间完成后，要如何将进程条窗体隐藏或关闭？ 你可以在按钮触发的时间完成后将form.free掉举个例子，你试试看 procedure TForm1.Button1Click(Sender: TObject); var LStart,LEnd:Integer;; begin LStart:=GetTickCount; //GetTickCount为取得当前时间函数 form2.Show; //显示进程条的窗体 LEnd:=GetTickCount; caption:=FloatToStr((LEnd-LStart)/1000.0) '秒'; //edtTime 是Tedit控件，用来显示间隔时间，除以1000是转化为s，不除就是ms end; 你可以在进程条时间完成时，控制窗体也同时free掉； ——行径窄处，留一步与人行—— ===== 为什么，经过多年以后，得失的过程如此冷漠 为什么，经过多年以后，风干的伤口心痛依旧 |
發表時間：2004-05-20 20:38:04
IP:218.85.xxx.xxx 未訂閱
系統時間：2024-05-17 17:35:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |