播放窗体显示在最前面(50分)

K

ktv2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #1

我想把播放画面的窗体都显示在各个窗体的上面，
我用borderstyle设为bsNONE,formstyle为fsstayontop,
开始播放时可以，当我返回时，再点击另外的窗体，
最上面的窗体就不显示在最上面了，请给予指教，谢谢！

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #2

setWindowPos(FindHandle,HWND_TOPMOST,0,0,SCREEN.WIDTH,SCREEN.HEIGHT,
SWP_SHOWWINDOW);

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #3

举个例子　例如这样：
FormStyle设为fsStayOnTop。
procedure TForm3.CreateParams(var Params:TCreateParams);
begin

inherited;
with Paramsdo

begin

Style:=Params.Style xor WS_DLGFRAME;
WndParent:=0;//此行
end;


end;


procedure TForm3.FormCreate(Sender: TObject);
begin

Width:=36;
Height:=36;
SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;

 

K

ktv2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #4

谢谢，我刚试了您的方法，还是会出现播放窗口消失，而且我想显示在指定区域，请再次给予指教，谢谢！

 

H

hmzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #5

上面的方法没错，是大富翁上的东东了

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #6

对　是我从大富翁上找的！[]

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #7

我做实验时怎么挺好的　不知道你为什么不好使　如果再不好用　我也 黔X技穷了　[]

 

K

ktv2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #8

我再试了以下，可以显示在最上面！但我要最大化此窗口，能最大化，但好象失去了焦点，
能否给予指示！

 

裴

裴小锴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #9

我也试了可能以的！！！！！

 

K

ktv2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-09

• #10

谢谢！