调用formcloseQuery,不能关闭窗口呀,应该怎么写
我的代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
canclose: boolean;
begin
canclose := true;
formcloseQuery(self,canclose);
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
case messagebox(0,'改变,关闭么','提示',MB_OKCANCEL) of
2: canclose := false;
end;
end;
我的代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
canclose: boolean;
begin
canclose := true;
formcloseQuery(self,canclose);
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
case messagebox(0,'改变,关闭么','提示',MB_OKCANCEL) of
2: canclose := false;
end;
end;
解决方案 »
- 关于ZIP解压缩的问题.
- 我刚计算机毕业,想学精一们有发展的语言??
- 问大家一个非技术问题?你们学delphi家里面有电脑吗?
- 这个多表查询怎么写?大家进来帮帮忙!
- 请教几个QuickRep的问题
- 请问::如何把FORM上右上角的 “最大化”等三个按钮的作用屏蔽掉??
- 打开一个ACCESS数据库,判断数据表是否存在?
- 一个很简单的按键判断,该如何处理呀??大家进来看看,帮个忙哦,!
- 大家来说说Borland下一代开发工具Galileo吧,来者有分
- 各位大虾请指教:学习Dephi之前一定要会c/c++或者帕斯卡语言吗??
- 怎样才能让dbgrideh或CXgrid插入新记录时,当前光标只能在新插入的行内移动?
- 代码出错了,大家看看。。。。。
begin
self.Close;
end;
if messagebox(0,'改变,关闭么','提示',MB_OKCANCEL) =mrOK then
xxxx
关闭还是form1.close
begin
close;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=messagebox(0,'改变,关闭么','提示',MB_OKCANCEL)=1;
end;