起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 204|回复: 7

窗体状态

[复制链接]
发表于 2010-1-29 17:24:28 | 显示全部楼层 |阅读模式
当lForm的被激活时,执行dialogs.showmessage('111')
当lForm不在激活时,执行dialogs.showmessage('2222')

这样的判断写到哪个事件里面才行。我想像下面那样写,但是出错。
private   
          procedure   WMSysCommand(var   Msg:TMessage);message   WM_SYSCOMMAND;   
   
  procedure   TForm1.WMSysCommand(var   Msg:   TMessage);   
  begin   
      case   Msg.WParam   of   
          SC_MINIMIZE   :   ShowMessage('最小化');   
          SC_MAXIMIZE   :   ShowMessage('最大化');   
      end;   
      inherited;   
  end;
回复

使用道具 举报

发表于 2010-2-1 08:48:47 | 显示全部楼层
你这个写法先在delphi里面试验下,不出问题后再尝试着移植过来。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-2-1 09:59:16 | 显示全部楼层
delphi里是可以的。但在是平台上错误如图:

xx.jpg

65.95 KB, 下载次数: 128

回复 支持 反对

使用道具 举报

发表于 2010-2-1 10:10:48 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-2-1 10:24:09 | 显示全部楼层
大哥帮写个小例子吧,上面这个看了无从下手,拜托了!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-2-2 13:06:48 | 显示全部楼层
花了一天多,终于解决了。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-2-2 13:07:57 | 显示全部楼层
差点忘了,可以结了。
回复 支持 反对

使用道具 举报

发表于 2010-2-2 14:28:42 | 显示全部楼层
呵呵,楼主抽空把方法共享一下吧,谢了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-11 23:52 , Processed in 0.040566 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表