DBNavigator自訂刪除訊息的方法 |
|
|
|
a6475
高階會員   發表：67 回覆：230 積分：154 註冊：2002-09-15 發送簡訊給我 |
先把 DBNavigator1.ConfirmDelete := false;
讓原本的刪息視窗不出現。 然在後DBNavigator的BeforeAction視窗加入以下代碼即可
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if Button = nbDelete then begin if MessageBox(Handle, '確定要刪除嗎?', '確定要刪除嗎？?', MB_ICONASTERISK or MB_OKCANCEL)= IDCANCEL then abort; end; DBNavigator1.ConfirmDelete := false; end;月夜 光明 藍更愁
------
月夜 光明 藍更愁 |
|
a6475
高階會員 發表：67 回覆：230 積分：154 註冊：2002-09-15 發送簡訊給我 |
剛才筆誤了一下，
程式碼裡的 DBNavigator1.ConfirmDelete := false;請刪除 正確的：
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if Button = nbDelete then begin if MessageBox(Handle, '確定要刪除嗎?', '確定要刪除嗎？?', MB_ICONASTERISK or MB_OKCANCEL)= IDCANCEL then abort; end; end;月夜 光明 藍更愁
------
月夜 光明 藍更愁 |
|
cmj
高階會員 發表：15 回覆：242 積分：226 註冊：2002-06-12 發送簡訊給我 |
引言: 剛才筆誤了一下， 程式碼裡的 DBNavigator1.ConfirmDelete := false;請刪除 正確的：建議處理Record都在DataSet做較佳 所以在DataSet的BeforeDelete事件中做刪除處理procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if Button = nbDelete then begin if MessageBox(Handle, '確定要刪除嗎?', '確定要刪除嗎？?', MB_ICONASTERISK or MB_OKCANCEL)= IDCANCEL then abort; end; end;月夜 光明 藍更愁 |
發表時間：2003-07-28 10:40:16
IP:61.229.xxx.xxx 未訂閱
系統時間：2024-11-23 18:48:59
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |