从其他程序返回会产生什么事件? ( 积分: 25 )

  • 主题发起人 主题发起人 lordofbinladen
  • 开始时间 开始时间
L

lordofbinladen

Unregistered / Unconfirmed
GUEST, unregistred user!
自编程序x.exe 当选了其他程序( 如FireFox, Notepad.exe ) 再选择x.exe。<br>问x.exe 会产生什么事件?
 
自编程序x.exe 当选了其他程序( 如FireFox, Notepad.exe ) 再选择x.exe。<br>问x.exe 会产生什么事件?
 
“选择“是什么意思?你的程序没有执行你是不可能知道啊。<br>我想你是运行x.exe之后,再到别的程序去吧。<br>这样你可以在程序失去焦点之后,用findWindow查找当前打开的窗口
 
楼主是想说像UltraEdit 那样, 当使用了其他软件后再会x.exe 会产生什么事件吗?
 
会产生Application.OnActivate事件,测试程序如下:<br>unit Unit1;<br><br>interface<br><br>uses<br> &nbsp;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> &nbsp;Dialogs;<br><br>type<br> &nbsp;TForm1 = class(TForm)<br> &nbsp; &nbsp;procedure AppActivate(Sender: TObject);<br> &nbsp; &nbsp;procedure FormCreate(Sender: TObject);<br> &nbsp;private<br> &nbsp; &nbsp;{ Private declarations }<br> &nbsp;public<br> &nbsp; &nbsp;{ Public declarations }<br> &nbsp;end;<br><br>var<br> &nbsp;Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.AppActivate(Sender: TObject);<br>begin<br> &nbsp;showmessage('AppOnActivate');<br>end;<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> &nbsp;Application.OnActivate := AppActivate;<br>end;<br><br>end.<br>
 
是, 就是sypoh 的意思.....
 
你没试吗?注意窗口的OnCreate事件添加上FormCreate
 
多人接受答案了。
 
后退
顶部