delphi下TChromeTabs组件的标签页随鼠标拖动

最新推荐文章于 2022-05-07 14:42:22 发布
最新推荐文章于 2022-05-07 14:42:22 发布
阅读量344 收藏
点赞数
分类专栏： delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/rznice/article/details/105130470
版权

使用TChromeTabs时，发现标签页会随着鼠标拖动，造成标签页位置错乱，解决办法，
找到TChromeTabs 的Option -->DragDrop–>DragType 设置成dtNone即可，标签页就不在跟着鼠标跑了。

rznice
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi ChromeTab插件及安装方法
11-11
Delphi ChromeTab插件及安装方法， 安装方法如下： 2. ChromeTab安装（以Delphi 7为例） a.打开工程 Packages\Delphi 7\ChromeTabs_D7_R.dpk Compile b.打开工程 Packages\Delphi 7\ChromeTabs_D7_D.dpk Compile Install
delphi控件使用
achs24540的博客
10-27 2198
Standard页 1- Tlistbox控件 重要属性items.* 举例，界面设计如下左，执行结果如下右： 代码为 procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := listbox1.Items.CommaText; edit2.Text := listbo...
【解决方案】chrome打开新标签页自动打开chrome://newtab并且跳转到谷歌香港
kodmoqn的博客
09-30 9094
【解决方案】chrome打开新标签页自动打开chrome://newtab并且跳转到谷歌香港
DELPHI开发选项卡模式的窗体
05-07 570
关于选项卡模式的窗体，先看一个我开发的一个案例图 在图片中我们可以看到，主界面是固定排版的，所有模块窗体在打开时，都是在主界面的选项卡上增加一个选项，也可以通过关闭选项卡来关闭窗体，那么实现的方式是什么呢？ 【第一步】 我们首先创建一个过程 procedure OpenForm(FrmName,FrmCaption:string;MyFormCls:TFormClass); 针对此过程的参数简单的解释一下： FrmName：窗体的名称 FrmCaption：显示在选项卡上的标签内容 MyFormCls：
Delphi StyleControls之标题栏Tabs
小印丶的笔记
08-26 707
RAD Studio 10.3 测试√ 控件 scStyledForm 下的 Tabs 下的子项的 OnClick 事件【进行 cxPageControl 的面板切换】 procedure TForm1.scStyledForm1Tabs0Click(Sender: TObject); begin cxPageControl1.ActivePageIndex := 0;// 切换cxPageControl控件下的活动面板【0表示左边第1个面板】 end; procedure TForm1.scStyl
Delphi-XE5-手势操作-Gestures-使用方法
一个会抄的开发人员ｆ（ｘ）
02-10 3060
Delphi-XE5-手势操作-Gestures-使用方法 一、首先转载一下别人的方法介绍： 今天尝试了TTabControl的使用。在很多Android的app中，首次启动时都使用选项卡模式进行产品介绍，用户通过向左滑动，改变选项卡。在xe5下这项工作由TTabControl控件完成，如下图：   1、TTabControl外观 TTabCo
在DELPHI中实现用RZPAGECONTROL实现多标签窗口功能（类似IE8以上）
09-20
在DELPHI中通过RZPAGECONTROL（开发环境需安装RAIZE组件）实现类似IE8及以上版本或傲游浏览器等的多标签窗口功能。压缩包中为完整代码。
Chromium多标签浏览器开发
cuizm的专栏
06-03 9976
由于项目的原因，需要使用Delphi语言进行开发Chrome内核的多标签浏览功能。本着开放精神，先到网上搜索了一大圈，发现大多以IE内核的多标签浏览器居多（即WebBrowser控件）。Chromium资源以及相关介绍，少之又少，想查一些资料，都没有办法。发现一个叫DcefBrowser的控件，说是可以实现多标签浏览器。但是这是用Delphi xe编译的，低版本无法安装使用，并且在开发项目时，也比较忌讳使用太多的第三方控件。实在没办法，只能自己动手，丰衣足食。
Delphi中多标签页面的实现
diligentcat的专栏
12-11 3048
unit uMain; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, RzTabs, Menus; type   TFrmMain = class(TForm)     RzPageControl1: TRzPageContr
delphi仿IE浏览器标签页效果演示
hello simon
01-09 4424
看到有同学提问, 自己试炼了一把, 只为实现标签页效果, 未作细化和完善工作. 路过的同学多多指教 -------------------------------------------------------------- a.html 无标题文档 btn ahref btn so 单元文件 unit Unit11;
TChromeTabs:Chrome的Tab系统的全面Delphi实施
05-04
TChromeTabs TChromeTabs是Google Chrome标签页的全面实现。 Delphi 6-具有高DPI支持的Delphi DX10.4 Sydney FreePascal / Lazarus（Alpha） 德尔菲努斯支持 安装 TChromeTabs已在Delphi 6和Delphi 10.4 Sydney下进行了测试。 安装： 编译.\Packages\<Delphi>\ChromeTabs_R.dpk 编译并安装.\Packages\<Delphi>\ChromeTabs_D.dpk 贡献 我们热爱积极的参与者，并从所有人中拉取请求。 如果要尝试，只需阅读本指南
chromeTabs，google浏览器的标签delphi安装包
06-11
chromeTabs，google浏览器的标签delphi安装包
Delphi中Chrome浏览器开发
12-10
delphi xe10版本控件(delphi 10 Seattle) delphi2010-XE3版本及双核浏览器样例 Delphi制作谷歌内核浏览器（双核浏览器）安装说明
Delphi动态组件拷贝
08-02
在delphi中实现不同控件组合的动态拷贝和事件响应。测试了文本、按钮、图像、图形、复选框等控件及其事件响应。在Rad Studio 10中测试通过。
Delphi 编写COM组件的一些实例源程序
05-16
内容索引:Delphi源码,控件组件,COM　　Delphi 编写组件的一些实例源程序，压缩包内一共有三个程序，一、Delphi编写OM+组件实现客户端、服务器回调；二、delphi实现的COM+组件处理数据库Blob字段；三、Delphi实现的...
Delphi控制TRichEdit组件文字内容滚动
05-18
摘要:Delphi源码,控件组件,TRichEdit　这几天做一个Delphi项目，要用到TRichEdit组件内的文字滚动，索性研究了一下，编写了这么一个实例，点击按钮可控制TRichEdit组件显示区的文字滚动。关于TRichEdit组件：它是一...
用鼠标拖动或键盘移动窗口内的组件
02-12
可以使用鼠标拖动窗口内组件的位置，也可以使用键盘的上、下、左、右键移动窗口内组件的位置.
WVCopyFile Delphi文件拷贝组件
05-16
内容索引:Delphi源码,控件组件,WVCopyFile,拷贝　WVCopyFile Delphi文件拷贝组件，它包含一系列有关文件拷贝的组件，该组件库是免费组件，并附源代码，这是一个经过修正的版本，可应用于所有的Delphi应用中。
Chrome CustomTabs的使用
K_Hello的博客
08-15 3186
Chrome CustomTabs是什么 Chrome CustomTabs为应用程序提供了一种方式，可以自定义并与之互动的Chrome Activity。 这使得Web内容感觉像是应用程序的一部分，同时保留了完整Web浏览器的完整功能和性能。 这句话的理解是:如果您想在应用中打开一个网页，你可以通过 Chrome Custom Tabs 来打开 Chrome 浏览器的一个自定义 T...
用delphi 获取chrome的当前标签页的url
最新发布
06-07
你可以使用Delphi的TWebBrowser控件来实现获取Chrome当前标签页的URL。具体步骤如下： 1. 创建一个TWebBrowser控件，设置它的Parent为Form或Panel等容器控件。 2. 在Form的OnCreate事件中，调用TWebBrowser的Navigate2方法来加载Chrome浏览器。 3. 在TWebBrowser的OnDocumentComplete事件中，使用OLEObject方法来获取Chrome浏览器的ActiveDocument对象。 4. 使用ActiveDocument对象的parentWindow属性来获取Chrome浏览器的窗口句柄。 5. 使用FindWindowEx函数来获取Chrome浏览器的标签页句柄。 6. 使用SendMessage函数来向标签页发送消息，获取它的URL。 下面是获取Chrome当前标签页URL的示例代码： ```delphi procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate2('about:blank'); end; procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant); var ChromeWnd, TabWnd: HWND; ChromeClass, TabClass, TabText: string; TabTextBuffer: array[0..255] of Char; begin // 获取Chrome浏览器窗口句柄和类名 ChromeWnd := WebBrowser1.Handle; SetLength(ChromeClass, 255); SetLength(ChromeClass, GetClassName(ChromeWnd, PChar(ChromeClass), Length(ChromeClass))); // 获取标签页句柄和类名 TabWnd := FindWindowEx(ChromeWnd, 0, 'Chrome_TabbedWndClass', nil); SetLength(TabClass, 255); SetLength(TabClass, GetClassName(TabWnd, PChar(TabClass), Length(TabClass))); // 获取标签页的标题 SendMessage(TabWnd, WM_GETTEXT, SizeOf(TabTextBuffer), Integer(@TabTextBuffer)); TabText := TabTextBuffer; // 获取标签页的URL SendMessage(TabWnd, WM_SETFOCUS, 0, 0); SendMessage(TabWnd, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(10, 10)); SendMessage(TabWnd, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(10, 10)); SendMessage(TabWnd, WM_GETTEXT, SizeOf(TabTextBuffer), Integer(@TabTextBuffer)); Label1.Caption := TabTextBuffer; end; ``` 注意：这种方法只适用于获取Chrome浏览器的当前标签页URL，如果要获取其他标签页的URL，则需要修改代码适配。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值