滔 Roy

摘要： Delphi TWebBrowser[4] 页面复制和粘贴 ctrl+c ctrl+V 无效果的处理 解决方法（初始化和终止）： //在程序后面加入 uses Activex; Initialization OleInitialize(nil); Finalization try OleUninit 阅读全文

摘要： JavaScript Window 打开新窗口的几种方式 1、方式1: window.location.href window.location.href="https://chuna2.787528.xyz/guorongtao/"; //在当前窗口中打开窗口 类似于HTML: <a href="ht 阅读全文

摘要： Delphi TWebBrowser[3] IE收藏夹操作 1、添加到收藏夹 const CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}'; procedure AddFavorite(Webbrowser:T 阅读全文

摘要： Delphi TWebBrowser[2]-属性、方法、事件示例详解 1、属性（1）AddressBar //设置是否显示地址栏，在TWebBrowser中没有用。 语法：property AddressBar:WordBool; （2）Busy //确定Web浏览器组件是否正在导航到一个新的URL 阅读全文

摘要： Delphi TWebBrowser[1]介绍 1、简介 TWebBrowser组件是一个浏览器组件（基于IE内核），可以显示一个指定地址的网页、设置网页打开时的主页以及对网页进行相关的操作，同时也可以对HTML文件进行剪切、复制、粘贴、删除等操作。该 组件在Internet组件页中，属于TWebb 阅读全文

摘要： Delphi {$M +} 与{$TYPEINFO ON} 和 {$M -} 与{$TYPEINFO OFF} 在TPersistent的声明中多了M编译开关，当{$M +} 与{$TYPEINFO ON} 作用是一样的， 而{$M -} 与{$TYPEINFO OFF}相同。当一个类在{$M +} 阅读全文

摘要： SQL 通过SQL语句检索字段类型、长度、主键 方式1： select 字段名=a.name, 标识=case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '是' else '' end, 主键=case when exists(SEL 阅读全文

摘要： 看着很多delphi的大神，在博客园写了很多年，突然就不写了，时间停格在某个日期点，不免有些感概~ 不知道，许多年后的自己是否也是如此？ 也许吧~ 如果留下的东西能给后人带来帮助，能从中学到东西，也是一件很值得欣慰的事。 --滔Roy 2020.11.10 阅读全文

摘要： Delphi 操作Windows系统睡眠-防止系统/电脑 进入睡眠或关闭显示器 1、防止进入睡眠 1.1、引用单元 Delphi 单元： unit SystemCriticalU; interface uses Windows; type TSystemCritical = class privat 阅读全文

摘要： Delphi WinAPI SetThreadExecutionState - 防止系统在应用程序运行时进入睡眠状态或关闭显示器。 描述：使应用程序能够通知系统它正在使用，从而防止系统在应用程序运行时进入睡眠状态或关闭显示器。 原型： EXECUTION_STATE SetThreadExecuti 阅读全文