Q qdyoung Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-10 #2 if GetForgroundWindow() = Handle then<br>...<br><br>--------<br>http://www.8421.org
G Gec Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-10 #5 不知道为什么<br>GetActiveWindow = handle<br>GetActiveWindow = handle<br>GetActiveWindow = handle<br>这样连续执行3次，偶尔有1次成立<br>能不能通过appliation得到？
不知道为什么<br>GetActiveWindow = handle<br>GetActiveWindow = handle<br>GetActiveWindow = handle<br>这样连续执行3次，偶尔有1次成立<br>能不能通过appliation得到？
张 张无忌 Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-10 #7 用 GetForgroundWindow() 来解决，如果你的窗体是当前窗体的话，返回的就是<br>你窗体的句柄,或者用自己窗体的handle属性来访问呀
G Gec Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-10 #8 我知道错在那里了<br>我是点1下trayicon后判断<br>getforgroundinwindow<br>可是有时候得到的是系统托盘图标的handle<br>我该如何判断我自己的程序有没有在用户桌面显示啊？
我知道错在那里了<br>我是点1下trayicon后判断<br>getforgroundinwindow<br>可是有时候得到的是系统托盘图标的handle<br>我该如何判断我自己的程序有没有在用户桌面显示啊？
G Gec Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-10 #10 if form.visible=false then <br>showwindow(application.handle,2);<br>这样点trayicon根本没反映，如果<br>showwindow(application.handle,2);<br>才有反映<br>
if form.visible=false then <br>showwindow(application.handle,2);<br>这样点trayicon根本没反映，如果<br>showwindow(application.handle,2);<br>才有反映<br>
张 张无忌 Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-10 #11 对用form.visible属性，我以前的程序就是这么做的，没有任何问题
张 张无忌 Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-10 #12 if form.visible=false then <br>showwindow(Form.handle,2);<br>
Q qsilence Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-10 #13 我试了一下，用 GetActiveWindow 是可以的，<br>在TIMER事件中：<br><br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br> dskhnd : HWnd;<br> str : string;<br>begin<br> dskhnd := GetActiveWindow;<br> str := 'DesktopWindow: '+ inttostr(dskhnd)+ ' Handle: ' +inttostr(Handle);<br> if dskhnd = Handle then<br> Caption := str + ' 相等！！'<br> else Caption := str + ' 不等！！！！！';<br>end;<br>
我试了一下，用 GetActiveWindow 是可以的，<br>在TIMER事件中：<br><br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br> dskhnd : HWnd;<br> str : string;<br>begin<br> dskhnd := GetActiveWindow;<br> str := 'DesktopWindow: '+ inttostr(dskhnd)+ ' Handle: ' +inttostr(Handle);<br> if dskhnd = Handle then<br> Caption := str + ' 相等！！'<br> else Caption := str + ' 不等！！！！！';<br>end;<br>
