delphi 怎么实现主窗口退出时，有一个提示框？

在窗口的OnCloseQuery里写下面的代码：
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
case Application.MessageBox('确定退出系统？','询问',35) of
6:
begin
ShowMessage('按了是，窗口关闭');
CanClose:=True;
end;
7:
begin
ShowMessage('按了否，返回登陆窗口');
CanClose:=True;
//这里写上你的登陆窗口调用代码
ShowMessage('登陆窗口出现了');
end;
2:
begin
ShowMessage('按了取消，窗口不关闭');
CanClose:=False;
end;
end;
end;

你可以在窗体的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;

自己建一个窗体，然后用ShowModel显示
或者在OnCanClose事件里处理，具体的看帮助

重载窗口的消息处理，在其中拦截wm_close即可。

在Form的onclosequery中用Messagebox提问就可以了