使用Form的FormCloseQuery事件:
- procedure TMainFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- begin
- Canclose := MessageBox('真的要退出吗?', '提示', MB_YESNO+MB_ICONQUESTION) = ID_YES;
- end;
之后会触发FormClose事件。
使用Form的FormCloseQuery事件:
之后会触发FormClose事件。