Form 的 Close 事件里,因该在 CloseQuery 事件里 delphi

Form 的 Close 事件里,因该在 CloseQuery 事件里 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (IDYES = Application.MessageBox('确定要退出吗?','提示',MB_YesNo+MB_IconQuestion)) then
CanClose:=TRUE
else
CanClose:=FALSE;
end;


　　　　　　　　　　　　　 查看评论 回复