如何用发信息的方法使别的窗口获得焦点?(50分)

  • 主题发起人 主题发起人 abcxca
  • 开始时间 开始时间
找到别的窗口的句柄,用ShowWindow函数.
 
showwindow(TagHwnd,SW_SHOW);<br>&nbsp;不行,是否调用的窗口还要交出焦点? 但怎样交?
 
本来是不用的,ShowWindow是可以自动将打开的窗口设为焦点的,但是如果你是通过鼠标操作<br>来调用ShowWindow的话可能就麻烦点,因为当OnClick事件发生时你ShowWindow,但是紧接着的<br>MouseUp又会把焦点抢过来.
 
flashwindow(TagHwnd,true);
 
procedure TForm1.Button4Click(Sender: TObject);<br>Var HA:THandle;<br>begin<br>&nbsp; HA:=FindWindow(nil,'ss');<br>&nbsp; if ha&lt;&gt;0 then<br>&nbsp; &nbsp; SetForegroundWindow(HA);<br>end;<br>
 
&nbsp; SetForegroundWindow(HA);<br>&nbsp; &nbsp;呵呵,就是它,ok了.<br>
 
后退
顶部