请教各位富翁,我想要我的程序获得焦点时 (100分)

D

delphi-i love

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #1

谢谢

 

K

kindly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #2

好像不太可能,没见过类似的情况

 

M

micony

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #3

我只是猜测罢了,setwindowspos能将窗口设为最前边,那也应该将窗口设在最里边吧~~

 

D

delphi-i love

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #4

谢谢两位,用setwindowspos可将窗口设于最下边,可是点击其他程序后,两点击我的程序<br>就又恢复到上面了.有没有办法让我的窗口始终盖不住其他程序的窗口???

 

F

fossil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #5

在 onactviate 里用api处理一下，不知道行不行

 

D

ddev

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #6

不可能，这是 Windows 程序基本的焦点切换问题。<br>

 

D

delphi-i love

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #7

可以,我见过有的程序实现了,象WINDOWS的桌面一样.

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-16

• #8

&gt;&gt;有没有办法让我的窗口始终盖不住其他程序的窗口???<br><br>有：<br><br>unit Unit1;<br><br>interface<br><br>uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;<br><br>type<br>&nbsp; TForm1 = class(TForm)<br>&nbsp; private<br>&nbsp; public<br>&nbsp; &nbsp; procedure SetPos(var msg: TWMWINDOWPOSCHANGED); message WM_WindowPosChanging;<br>&nbsp; end;<br><br>var Form1: TForm1;<br><br>implementation<br>{$R *.DFM}<br>procedure TForm1.SetPos(var msg: TWMWINDOWPOSCHANGED);<br>begin<br>&nbsp; msg.WindowPos.hwndInsertAfter:=1;<br>end;<br>end.<br>

 

D

delphi-i love

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #9

谢谢各位帮助,发分了