如果我設定某個日期時間為提醒時間，比如：2015-06-16 10：00 這個時間為設定時間，如果當系統時間等于這個時間時，則跳出提醒視窗，請問大俠們怎么實作，我是用delphi sqlserver，謝謝！
備注：不管我當前在那個表單，一到時間就提醒，是不是每個表單都要放寫timer事件
uj5u.com熱心網友回復：
放主表單就好了.uj5u.com熱心網友回復：
主表單放個 timerprocedure TForm2.Timer1Timer(Sender: TObject);
var
dt : TDateTime;
begin
dt := StrToDateTime('2015-06-16 10:00:00');
if (now() >= dt) and (now() < dt+1/24/60) then //在一分鐘內都有效. 當然你也可以只用 (now() = dt) 來判斷, 這時你timer 的 interval 則必需小于等于 1000
begin
Timer1.Enabled := false ;
//執行提醒
end;
end;
uj5u.com熱心網友回復：
一般在主視窗，放一個Timer控制元件，不要多設。Timer控制元件是獨立執行緒，戰用CPU時間。所有的時間判斷，都可以在此Timer時，判斷運行。
樓上的代碼需要優化，因為Timer是以1秒左右時間間隔判斷，一分鐘內，可以有60次的機會。
uj5u.com熱心網友回復：
其實這個滿麻煩的基本按lyhoo163說的。占用系統性能。其實認真考慮需求這種真的沒必要轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/82165.html
標籤：數據庫相關
上一篇：在ASP.NET中實作選中、編輯和洗掉GridView資料項
下一篇：Dll 資料庫連接池