如何制作进程条界面? |
尚未結案
|
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掉; ——行径窄处,留一步与人行—— ===== 为什么,经过多年以后,得失的过程如此冷漠 为什么,经过多年以后,风干的伤口心痛依旧 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |