怎么用toolbar实现浮动工具条

Question

想用toolbar实现浮动工具条，就想金山快译的浮动工具条，请问各位高手怎么做?谢谢

Answer 1

记得有一个API， 叫什么忘了， 大约是appbar之类的， 可以实现

Answer 2

将窗体风格设置为WS_EX_TOPMOST以保持窗口始终在最顶层,然后拦截处理WM_NCHITTEST消息以实现拖动窗体的任何地方都可以拖动窗口
procedure TYourForm.MoveForm(var msg: Tmessage);message WM_NCHITTEST;
procedure TYourForm.MoveForm(var msg: Tmessage);
begin
 inherited;
 if msg.Result=htClient then msg.Result:=htCaption;
end;

Answer 3

方法1:
把toolbar 放在panel上把toolbar 的
dragkind设置为 dkDock 
dragmode设置为 dmAutomatic
然后把panel 的docksite 设置为true
 
运行时toolbar就能从panel上拖出来成为浮动工具条了, 也可以在放上去.方法2:
 新建一窗体, 上面放工具按钮, 把窗体的formstyle 设置为fsstayontop 
然后在主窗体中写调用的代码.