Question

delphi 怎么关闭弹出窗口

Answer 1

你可以在窗体的onClose事件中进行设计。
在里面先以定义一个退出标志，然后根据标志判断是否退出。
procedure TFrm_mz_sf_zdhj.FormClose(Sender: TObject; var Action: TCloseAction);
var ExitFlag:Integer;//退出标志
begin
ExitFlag:=Application.MessageBox('当前记录尚未保存,确认退出吗?','警告',Mb_YesNo) ;
If ExitFlag=7 then//不退出
Begin
//TCloseAction = (caNone, caHide, caFree, caMinimize);
Action:=caNone;
Exit;
end
else
Begin
self.close;//退出
End;
end;