一个系统触发功能。我是个初学者，希望大虾们帮忙！

当系统满足一定的条件是自动触发给用户一个提示。请问这个提示的代码怎么写，要用到什么控件。 问题点数：20、回复次数：8Top

1 楼liangqingzhi（老之）回复于 2006-05-04 10:53:52 得分 0

ShowMessage('提示');Top

2 楼zjy6631（刘阿木）回复于 2006-05-04 11:41:08 得分 0

messagedlgTop

3 楼flydranon（）回复于 2006-05-06 13:43:22 得分 0

if   ...   then  
  begin  
      showmessage('提示内容');  
  end;Top

4 楼wei1344（）回复于 2006-05-06 22:26:46 得分 0

不是这样的，就是当一个模块中满足一定的条件时在主界面中有个显示相关提示信息的窗口。Top

5 楼wudi_1982（向伴水学习|胃出血，住院中）回复于 2006-05-06 23:36:54 得分 10

定义一个用来显示信息的窗体，messageForm，里面的内容你自己定，但一般有个label组件，假设为lable1,然后你放一个timer组件到主窗体，timer组件的ontime事件中写  
  if   符合你的条件   then    
  begin  
      messageForm   :=   TmessgaeForm.create(nil);  
      try  
          messageForm.lable1.caption   :=   '提示信息';  
       
     
      messageForm.showModal;  
      finally  
          messageForm.free;  
      end;  
       
  end;  
   
  Top

6 楼wei1344（）回复于 2006-05-08 21:45:26 得分 0

大哥，能不能给个例子，我还是不知道怎么调用。  
  Top

7 楼swcsoft（对不起，我踩到你尾巴了！）回复于 2006-05-08 22:02:34 得分 10

在你的主界面中放一个不可见的Lable,当然满足条件的时候显示做个提示就可以啦..楼上的方法就可以了,楼主何不试试呢.Top

8 楼wei1344（）回复于 2006-05-17 15:36:31 得分 0

我试了一下，又有了新的问题，怎么把数据库一个表里面的字段调用出来啊！！！Top

相关问题

• 帖主：wei1344
• wudi_1982
• swcsoft

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载