我用MDIForm開了一個MDIChild form, 想在該MDIChild form做close時做一個檢查, 如果不符合條件,則中斷該close動作。 但我試過Break 和 Exit的語句都會令該MDIChild form close了, 請問各位大大應如何處理?

引言: 我用MDIForm開了一個MDIChild form, 想在該MDIChild form做close時做一個檢查, 如果不符合條件,則中斷該close動作。 但我試過Break 和 Exit的語句都會令該MDIChild form close了, 請問各位大大應如何處理?

你试试以下方法，在OnClose中添加事件。 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin IF false THEN Action := caNone; end;