浮动的工具箱(15分)

Y

yyw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #1

我想在程序中做一个类试vb环境中的工具箱,让其始终浮在所有的窗体上面,
请问如何解决.
谢谢!不好意思总共就15分

 

L

l_x_yuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #2

到http://www.vclxx.org/DELPHI/DEFAULT.HTM当一个
AppBar.pas

 

Y

yyw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #3

to l_x_yuan:
找不到,给我发一个可以吗,
yyw_jx@sina.com

 

D

DZHZH2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #4

实现netants一样的悬浮窗
Public
procedure Createparams(Var Params:TCreateParams);override;
...
procedure TFormDrop.Createparams(var Params:TCreateParams);
begin
Inherited CreateParams(Params);
With Paramsdo
begin
EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME
wndParnet:=GetDesktopWindow;
//关键一行，用SetParent都不行！！
end;
end;

//摘自hubdog

 

T

tomol

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #5

to yyw:
选定FormStyle的fsStayOnTop,该窗体就会位于所有窗体之上了。要想有吸附的功能，
要设定Dock及其相关的几个”停泊“属性，VB工具栏上的东东可能是用ListView做的，你
可以做个类似的（但其实我怎么看都不太象）
另外你也不需要做的跟它一模一样呀！

 

C

combsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-16

• #6

关注此问题

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-16

• #7

formstyle:=fsStayOnTop;
borderstyle:=bsSizeToolWin

 

Y

yyw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-19

• #8

多人接受答案了。