收录日期:2019/04/24 20:32:34 时间:2016/05/30 10:06:32 标签:语言基础/算法/系统设计
我想在当满足一定的条件是才能关闭窗口,该如何做,还有如何在不同的窗体之间转递变量。立即给分!
procedure form2.button1onclick(object,Tobject);
begin
     if('满足条件') then 
        begin
             application.determined;
       end;
end;

也可以用消息传递完成(message);
这个不行,我要的是当关闭右上角的那个叉时的代码,
在Form的OnCloseQuery事件中写代码即可

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if('不满足条件') then 
  begin
    CanClose := Flase;  //置为不能关
  end;
end;
CanClose := False;   //汗  False竟写错了
action:=canone;

默认构造函数问题 vs2008 下载 网站 这个怎么做 如何用CodeSmith代码编辑实现这种字段跟属性粘在一起的效果? 在PB里把A表多条记录内容插入到B表里? asp字符串的连接问题 老连不对,不知道有什么窍门。 javascript 点击获取对应的值 急!!! 每天散分,以示存在@2009-09-27 一个关于C++引用的问题 c# 系统 如何在内核层隐藏一个文件,让别人看不到 几道很难的VFP编程,绞尽脑汁做不出来? 100分求一个免费的表格控件,验货完毕,马上结贴 谁知道项公公到底有没被阉过啊 JOptionpane里的按钮可以加监听器吗? c语言的结构和c++的类差别 如何在内核层隐藏一个文件,让别人看不到 editgrid编辑的问题 我不是攻击任何培训机构的,我对现在商业培训很不满,说几句 微软windows7上如何开发语音识别与语音合成 求助,关于虚拟机上学习PHP JOptionpane里的按钮可以加监听器吗? 如何设置“CWebBrowser2 忽略IE代理设置,不采用代理\" 连接池 关于 集合类 和 foreach 的小程序 请大家帮忙 (求助)tomcat部署更换一个新的war包后原来的项目文件被删除了怎样找回啊! 请帮忙看看这个定义是什么意思? 我的Nero7不能快速擦除光盘了!!! 鼠标右击列表框时怎么知道哪一项被右击了 局域网共享