Form的右上角，關閉視窗的按鈕，如果在event設一個對話方塊問user是否確定。 此時，不管user回答的是n或y，最後程式還是會關閉，要如何解決？

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

引言: Form的右上角，關閉視窗的按鈕，如果在event設一個對話方塊問user是否確定。 此時，不管user回答的是n或y，最後程式還是會關閉，要如何解決？

重點在, 選右上角結束, 會觸發onCloseQuery, 其中有一個CanClose, 如果你的CanClose=false, 不論你點多少次, 程式都不會反應結束

褫￠orm.bordericons笢bisystemmenu偞嶨alse; 珩褫⺼狟瞰ㄩ procedure TF_bom.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var l_ans:variant; begin l_ans:=messagedlg('訧蹋帤湔紫ㄛ湔紫綴燭羲ˋ',mtwarning,[mbyes,mbno,mbcancel],0); if l_ans=mryes then bn_saveclick(mouse) else if l_ans=mrcancel then canclose:=false; end;

你可以試試看在Form的OnClose事件下 下 //語法可能有誤你在查查 if messagedlg('是否關閉',Confir...,YesNo..,0) <> mrYes then abort; 這樣就不會關閉了~~~ 因為abort會讓之後的程式都不執行 試試看吧!!

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if MessageDlg('Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then begin abort; end; end; 按yes之後會執行離開 而按no則會執行abort而不讓Form關閉!? 參考看看~~~

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

procedure TForm1.Button2Click(Sender: TObject); // close begin Close; end; 擺r procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin If MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then begin Action := caNone; //Add other workIq end else begin //Add other workq end; end; 發表人 - Adonis 於 2002/10/22 09:56:03

------
我也在努力學習中，若有錯謬請見諒。

對不起, 打個插! 在 onFormClose中撰寫判斷, 對右上角的 [X] close 並沒有作用, 因為 並不會觸發FormClose Event(我實測結果), 除非在 程式中中有下 form.close行為才會引發 formclose Event, 不知對否?

引言: 對不起, 打個插! 在 onFormClose中撰寫判斷, 對右上角的 [X] close 並沒有作用, 因為 並不會觸發FormClose Event(我實測結果), 除非在 程式中中有下 form.close行為才會引發 formclose Event, 不知對否?

要確認是否可以 Close 最好是在 OnFormCloseQuery 中處理比較好(在Form還未確認 Close 之前). 不論是用程式 Close 或是按右上的 [X] 效果都一樣.