在一些處理程式,會儲存大量資料,
所以會在一個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

自己設計視窗，屬性 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

新增一個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 文 章===================
新增一個form看起來質感有好一點了...
感謝Stallion版主的回覆,
===================引 用 Stallion 文 章===================
自己設計視窗，屬性 System Menu 設定成 false，Border設定成Single或者None，位置設定用預設值或者自訂視窗的Left,Top位置後，使用Show的方法(不要用ShowModal)，並顯示訊息在該視窗上，於適當的時候Close掉，即可達成。