收录日期:2019/02/17 00:15:36 时间: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;

醒来你期待什么? 可以设置输入框的长度自动与表格同长吗? 如何使用Qreport打印空表? 100分求助老掉牙的 备份还原 问题 能否把word转成Html????? 网线(在线等待) 100分求救:只要能解决此问题,即刻满分相送! visual.net 启动出问题 关于监听器的问题? 新手上路 玩了一下全文检索。 机器坏了,大家来帮我诊断一下 如何用MFC画出已用数据结构存储后的\"图\"的结构模型?? 恋爱的感觉真好..... 如何用MFC画出已用数据结构存储后的\"图\"的结构模型?? 在WIN2000里管理员权限受限 怎样让一个字段在每次生成记录时自动填写SYSDATE 转贴:OpenSource的开发模式探讨 有谁能帮我解决啊。 如何创建一个文本文件,保存用户登陆的帐号和口令呢?以及如何指定路径及写、读文件的信息? vs.net 2003 树形控件不能安装 收到同事的ip发过来的信件 itoa()的功能 请教MYSQL的问题? Flash Saving Plugin V1.1.1 CFile类的使用方法 如何让flexgrid控键,不实现多行选中? 各位早,请教一个问题,正则表达式里面的\" ^ \"(尖号)怎么表示? 在Linux系统自己做虚拟主机管理system, 请大家给点思路. 基礎問題----怎麽去除空格