怎么才能实际浮在最顶层的工具栏。
解决方案 »
- 请问如何将一个数组的值输出到fastreport报表中,不是在数据库中
- 哪位有Delphi开发VCL组件的电子书啊?
- Listview怎么去掉滚动条?重分相送!
- 求一SQL语句
- 关于编程启动关闭服务的问题!
- WebBrowser控件的难题!!!!!!!!!!!!!!!!!!!!????????????
- 关于TClientdata问题
- 怎样在richedit1加入文本时加入格式?
- 如何解决在同一个报表的同一个打印行同时显示数据库中的三条记录.第二行依次显示下三个记录内容.
- delphi dbgrid列的拖動
- 为什么中加上这句后,我的程序关闭不了了????
- 合同签了,可是试用期三金不给缴,如何办?
procedure TForm1.Button1Click(Sender: TObject);
var
FloatRect:TRect;
begin
FloatRect.TopLeft:=ToolBar1.ClientToScreen(ToolBar1.ClientRect.TopLeft);
FloatRect.BottomRight:=ToolBar1.ClientToScreen(ToolBar1.ClientRect.BottomRight);
ToolBar1.ManualFloat(FloatRect);
end;