沒有按鈕的訊息框 |
答題得分者是:Stallion
|
jackiemi2_seed
中階會員 發表:37 回覆:97 積分:76 註冊:2006-09-11 發送簡訊給我 |
在一些處理程式,會儲存大量資料,
所以會在一個edit上顯示目前進度,程式碼如下 i:=0; edit1.Visible:=true; while not ADOQuery1.Eof do begin i:=i 1; edit1.Text:=inttostr(i) '/' inttostr(ADOQuery1.RecordCount); //處理程式// ADOQuery1.Next; end; edit1.Visible:=false; 如果沒記錯的話,在foxpro有一種類似showmessage的訊息框, 顯示時訊息框出現在畫面的右上角,訊息框上沒有按鈕, 出現後程式還是在執行中, 不會像showmessage要按下ok鈕才能執行下一列程式 Delphi有類似的東西嗎??? thanks
------
OS : Win 7 pro Program : Delphi 7 DataBase : Ms Sql 2008 |
Stallion
版主 發表:52 回覆:1600 積分:1995 註冊:2004-09-15 發送簡訊給我 |
自己設計視窗,屬性 System Menu 設定成 false,Border設定成Single或者None,位置設定用預設值或者自訂視窗的Left,Top位置後,使用Show的方法(不要用ShowModal),並顯示訊息在該視窗上,於適當的時候Close掉,即可達成。
===================引 用 jackiemi2_seed 文 章=================== 在一些處理程式,會儲存大量資料, 所以會在一個edit上顯示目前進度,程式碼如下 i:=0; edit1.Visible:=true; while not ADOQuery1.Eof do begin i:=i 1; edit1.Text:=inttostr(i) '/' inttostr(ADOQuery1.RecordCount); //處理程式// ADOQuery1.Next; end; edit1.Visible:=false; 如果沒記錯的話,在foxpro有一種類似showmessage的訊息框, 顯示時訊息框出現在畫面的右上角,訊息框上沒有按鈕, 出現後程式還是在執行中, 不會像showmessage要按下ok鈕才能執行下一列程式 Delphi有類似的東西嗎??? thanks |
jackiemi2_seed
中階會員 發表:37 回覆:97 積分:76 註冊:2006-09-11 發送簡訊給我 |
新增一個form看起來質感有好一點了...
感謝Stallion版主的回覆, ===================引 用 Stallion 文 章=================== 自己設計視窗,屬性 System Menu 設定成 false,Border設定成Single或者None,位置設定用預設值或者自訂視窗的Left,Top位置後,使用Show的方法(不要用ShowModal),並顯示訊息在該視窗上,於適當的時候Close掉,即可達成。
------
OS : Win 7 pro Program : Delphi 7 DataBase : Ms Sql 2008
編輯記錄
jackiemi2_seed 重新編輯於 2007-08-29 22:32:21, 註解 無‧
|
Stallion
版主 發表:52 回覆:1600 積分:1995 註冊:2004-09-15 發送簡訊給我 |
有滿意的答覆了,請適時結案~謝謝!
===================引 用 jackiemi2_seed 文 章=================== 新增一個form看起來質感有好一點了... 感謝Stallion版主的回覆, ===================引 用 Stallion 文 章=================== 自己設計視窗,屬性 System Menu 設定成 false,Border設定成Single或者None,位置設定用預設值或者自訂視窗的Left,Top位置後,使用Show的方法(不要用ShowModal),並顯示訊息在該視窗上,於適當的時候Close掉,即可達成。 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |