2 ygm8611 ygm8611 于 2016.03.17 21:36 提问

Delphi中我在Form里新建了一个Button用来关闭exe应用程序。

Delphi中我在Form里新建了一个Button用来关闭exe应用程序。
然后我要求点击按钮有提示问是否要删除,另外点击Form上的关闭按钮也要有一样的提示
如何做?

1个回答

caozhy
caozhy   Ds   Rxr 2016.03.17 23:20
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; 

在你的按钮上也写form.Close();

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
在窗口程序中打开控制台
using System; using System.Runtime.InteropServices; using System.Windows.Forms; namespace WindowsFormsApp1 { public partial class Form1 : Form { // 启动控制台 [DllImport("kernel32...
把任意的EXE嵌入到自己程序中
Delphi把任意的EXE嵌入到自己程序中的程序
delphi 创建无窗体应用程序
 new ---- >  console application 直接编写 dpr文件;无窗体应用程序没有.pas 文件, 只有.dpr 及对应的.exe 文件; 可在应用程序启动初期,  进行客户端应用自动更新操作,点再直接调用winapi 涵数 winexec(); 启动应用;;;;;;;; program   mydpr;         {$APPTYPE  
Delphi调用一个外部程序时,如何把外部程序的窗体放在主程序窗体的Panel上?
uses shellapi; ... procedure TForm1.Button2Click(Sender: TObject); var vh: HWND; begin ShellExecute(Self.Handle,'open',Pchar(filename),'',nil,SW_SHOWNORMAL); vh := Windows.FindWindow(nil, '窗口标
c#在新线程创建窗体卡住问题
最近遇到一个问题,在new 一个form 后发现新创建的窗体卡住了,里面的控件刷不出来。百度后发现原来是在一个新的线程里创建了窗体,而新线程是一直阻塞的,导致窗体刷不出来。
Delphi7如何打开和关闭Exe并带参数
Delphi带参数打开其他的Exe程序,如何强制关闭。
delphi中窗体关闭事件FormCloseQuery与assigned函数的使用
Form窗体可以响应各种各样的时间,在Object Inspector的Events页面中罗列了一大堆,如下图: 下面将要列出一些常用的事件。 1、OnActivate 当窗体被初始激活时,就会发生OnActivate事件,当初始创建窗体或者用户从一个窗体切换到另一个窗体时,就可能激活窗体,Application对象也有一个OnActivate事件,当用户从一个应用程序切
Delphi启动外部程序
无论是用VC还是用Delphi,启动外部程序, 调用的都是相同的系统中的API函数,如下Delphi代码所示: //登录按钮 procedure TForm1.Label_LoginClick(Sender: TObject); begin RunOtherApp('C:\1.exe'); //启动1.exe end; //Delphi启动其它程序函数 //参数appPath为要
C#.NET中怎样打开一个新Form,同时关闭当前Form?
线程操作比较麻烦,建议楼主考虑使用:form2 new出来时,form1 hide,需要的时候又show出来!简单! 代码: form1: fmm = this; Form2 fm = new Form2(); fm.Show(); fmm.Hide(); form2: Form
delphi程序向另一个可执行程序发消息
function FindWindowThroughWindowText(WindowText: string): THandle; var   hCurrentWindow: THandle;   cnt: Integer;   WindowTitle: array [0 .. 254] of Char; begin   Result := INVALID_HANDLE_VALUE;