关闭窗口对话框提示 messagedlg应用和showmodal的使用

实现效果：

1.点yes将关闭所有窗口；

2.点no继续停留在原来窗口界面；

主要应用messagedlg组件和showmodal的使用：

 

procedure TFLogin.btn2Click(Sender: TObject);
begin
if MessageDlg('确定退出吗，退出后程序将关闭', mtConfirmation , [mbYes,mbNo],0)=mrYes then

FLogin.ModalResult:= mrCancel; //对话框mrcancel返回

form3.Close

else FLogin.ModalResult:=0; end; 

注意：当窗口通过showmodal显示的时候，如果　ModalResult 设成非零值原窗口会关闭，设成零值会继续停留在原窗口。

 

　

转载于:https://www.cnblogs.com/ddxxxb/p/6862576.html