delphi中如何使自已编的程序用Alt+F4和右上脚的X都不能关掉,只能结束任务? 这样:procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin CanClose:=false;end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可是不能运行。你看看,我加得有没有错?unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm)/////////////////// 用你的带码 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);/////////////////// 用你的带码 private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}/////////////////// 用你的带码procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin canclose:=false;end;///////////////////end. 对了。就是closequery里编写代码! 在窗体的CloseQuery事件中写:canclose:=false;这样就可以了! DELPHI调用DOS命令的问题 公司要黄了,我该何去何从? OLE error C0000005是什么错误? SQL功力很深的朋友进来看一下。 如何将table1.state从edit状态改成browse状态? 急,listView问题,为何我对他刷新,为何上边的columns老是闪烁啊~~~~ 感觉这里的贴子质量变得是越来越差了 无语 c++函数转delphi问题 如何SQL查询paradoxt中的日期字段? 请问在 delphi 中怎么使用自己定义的鼠标! 如何把查询到的结果付给一个数组!再由数组调出数据显示到一个文当中?
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm1 = class(TForm)
/////////////////// 用你的带码
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
/////////////////// 用你的带码
private { Private declarations }
public { Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}/////////////////// 用你的带码
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=false;
end;
///////////////////
end.
canclose:=false;
这样就可以了!