窗体状态

刺青

当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;

lixy

你这个写法先在delphi里面试验下，不出问题后再尝试着移植过来。

刺青

delphi里是可以的。但在是平台上错误如图：

lixy

http://bbs.justep.com/forum.php? ... ghlight=SendMessage

刺青

大哥帮写个小例子吧，上面这个看了无从下手，拜托了！

刺青

花了一天多，终于解决了。

刺青

差点忘了，可以结了。

atiger

呵呵，楼主抽空把方法共享一下吧，谢了