Use Jpeg procedure TForm1.snapscreen(a,b,c,d:Integer); var bmpscreen:Tbitmap; jpegscreen:Tjpegimage; FullscreenCanvas:TCanvas; dc:HDC; sourceRect, destRect: TRect; begin try dc:=getdc(0); fullscreencanvas:=Tcanvas.Create; fullscreencanvas.Handle:=dc;

Delphi WebBrowser控件的使用 WebBrowser控件属性:1.Application      如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch).如果在宿主对象中自动化对象无效,程序将返回WebBrowser控件的自动化对象2.Parent       返回WebBrowser控件的父自动化对象,通常是一个容器,例如是宿主或IE窗口3.Containe       返回WebBrowser控件容器的自动化对象.通常该值与Pare

Delphi WebBrowser控件的使用中出现的bug:  1.WebBrowser.Visible=false:Visible属性不能使WebBrowser控件不可见,暂时用 WebBrowser.Hide的方法代替,WebBrowser.Hide隐藏浏览器, WebBrowser.Show显示浏览器:    补充:WebBrowser的OnVisible事件 控制窗口的可见或隐藏,用法同上(经测试Visual属性改变时不会激发)    上述补充参考原网址:   http://www.tu

修改Delphi工具控件的默认字体: 注册表: Delphi 6:    HKEY_CURRENT_USER\Software\Borland\Delphi\6.0Delphi 7:    HKEY_CURRENT_USER\Software\Borland\Delphi\7.0下增加一个名为“FormDesign”的项,再在这个项下面新建一个字符串值:新建字串:DefaultFont ,值为: 宋体,9［注意不是原来的Form Design 项,新建项没有空格］ 参考:http://www.c

Delphi TcxtreeList控件说明   树.cxTreeList 属性: Align:布局,靠左,靠右,居中等 AlignWithMargins:带边框的布局 Anchors:停靠 (akTop上,akBottom下,akLeft左,akRight右) Bands: 分组面板 Caption:面板标题 AlignHorz:文字水平位置(居中,靠左,靠右) AlignVert:文字垂直位置(居中,靠左,靠右) Glyph:面板图标 GlyphAlignHorz:图标水平位置(居中,靠左,

delphi按钮控件的default属性用于设置默认命令按钮,.设置为true时,按[Enter键]相当于用鼠标单击了该按钮 .窗口中如果有多个按钮的default是true的话,就根据tabindex顺序来决定是哪个来响应enter ,修改其TabIndex=0即可.这个用于密码登录页面比较人性化.

Delphi fmx控件在手机滑动与单击的问题 (2016-03-08 10:52:00) 转载▼ 标签: it delphi 分类: Delphi10 众所周知,fmx制作的app,对于象TEdit这样的控件,当你在Edit上面,上下滑动时,会产生单击事件,进而会弹出键盘,而这时候,用户做的滑动操作,是不想弹出键盘的.这就让你的app很不友好了. 我在QC上提出了这个需求,具体是https://quality.embarcadero.com/browse/RSP-13900.如果明白了这个问题

Delphi maskedit控件的掩码含义及用法方法   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 Delphi 中的Additional页里有个Maskedit控件,它可以限制用户只能按照既

Delphi StringGrid控件 组件名称:StringGrid         ●固定行及固定列:  StringGrid.FixedCols:=固定行之数;  StringGrid.FixedRows:=固定列之数;  StringGrid. FixedColor:=固定行列之颜色;  StringGrid.Color:=资料区之颜色;  ●资料行列之宽高度:  StringGrid.DefaultColWidth:=内定全部之宽度;  StringGrid.DefaultRowHei

Delphi IDHTTP控件:GET/POST 请求   最近一直在使用IDHTTP,下面是一些关于 GET.POST 请求基本使用方法的代码 一.GET 请求 1 procedure GetDemo; 2 var 3 IdHttp : TIdHTTP; 4 Url : string;//请求地址 5 ResponseStream : TStringStream; //返回信息 6 ResponseStr : string; 7 begin 8 //创建IDHTTP控件 9 IdHttp :=

基本安装1.对于单个控件,Componet-->install component..-->PAS或DCU文件-->install; 2.对于带*.dpk文件的控件包,File-->Open(下拉列表框中选*.dpk)-->install即可: 3.对于带*.bpl文件的控件包,Install Packages-->Add-->bpl文件名即可: 4.如果以上Install按钮为失效的话,试试Compile按钮: 5.是run time lib则在option下的

Delphi让控件随着窗口的大小而改变方法1:设置Anchors属性,把akLeft,akTop,akRight,akBottom都设为True.方法2:设置Align属性,其值为alClient.

前言 接着上周写的截图控件继续更新 绘制方框与椭圆. 1.WPF实现截屏「仿微信」 2.WPF 实现截屏控件之移动(二)「仿微信」 3.WPF 截图控件之伸缩(三) 「仿微信」 正文 有开发者在B站反馈第三篇有Issues已修复. 实现在截图区域内绘制 方框与椭圆 有两种方式 1)可以在截图的区域内部添加一个Canvas宽高填充至区域内,在进行绘制方框或椭圆. 2)直接在外层的Canvas中添加,这样需要判断鼠标按下的位置和移动的位置必须在已截图区域内,如超出范围也不绘制到区域外. 本章使用了第

前言 接着上周写的截图控件继续更新 绘制箭头. 1.WPF实现截屏「仿微信」 2.WPF 实现截屏控件之移动(二)「仿微信」 3.WPF 截图控件之伸缩(三) 「仿微信」 4.WPF 截图控件之绘制方框与椭圆(四) 「仿微信」 正文 一.首先接着ScreenCut继续发电. 1)绘制箭头因为需要只修改箭头的尾部顶部不修改大小所以需要两个Path 需要定义Grid容器分为两列第一列 尾部 宽度设置***** 第二列设置固定宽度15 . <ControlTemplate x:Key="PART

前言 接着上周写的截图控件继续更新添加 文字. 1.WPF实现截屏「仿微信」 2.WPF 实现截屏控件之移动(二)「仿微信」 3.WPF 截图控件之伸缩(三) 「仿微信」 4.WPF 截图控件之绘制方框与椭圆(四) 「仿微信」 5.WPF 截图控件之绘制箭头(五)「仿微信」 6.WPF 截图控件之绘制箭头禁止越界(六)「仿微信」 正文 一.接着ScreenCut继续发电. 1)添加文字操作只允许在可编辑区域内 在添加文字.使用Border嵌套TextBox Border需注意: 1)当控件的高存

前言 接着上周写的截图控件继续更新添加 画笔. 1.WPF实现截屏「仿微信」 2.WPF 实现截屏控件之移动(二)「仿微信」 3.WPF 截图控件之伸缩(三) 「仿微信」 4.WPF 截图控件之绘制方框与椭圆(四) 「仿微信」 5.WPF 截图控件之绘制箭头(五)「仿微信」 6.WPF 截图控件之绘制箭头禁止越界(六)「仿微信」 7.WPF 截图控件之文字(七)「仿微信」 正文 一.接着ScreenCut继续发电: 1)添加画笔操作只允许在可编辑区域内: 再添加画笔.使用Polyline来实现:

WPF 截图控件之移除控件(九)「仿微信」 WPF 截图控件之移除控件(九)「仿微信」 作者:WPFDevelopersOrg 原文链接: https://github.com/WPFDevelopersOrg/WPFDevelopers 框架使用大于等于.NET40: Visual Studio 2022; 项目使用 MIT 开源许可协议: 截图控件暂时更新到此,未实现功能如下 Hook 快捷打开截图. 添加操作还不能移动和更改大小 获取根据当前坐标返回进程的大小Rect. 获取鼠标区域RGB

步骤一:获取网页中验证码图片的url地址 在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取 程序如下:procedure TForm1.BitBtn1Click(Sender: TObject); var   I:Integer; begin   for I:=0 to WebBrowser1.OleObject.document.images.length-1 do     Memo1.Lines.Add(WebBrowser

故事背景:Java组的小伙伴需要一个能在IE(还是6...)下截图并返回给网页的功能,但是IE做起来很麻烦(可能根本做不到),于是找到我写一个ActiveX控件实现此功能,想着可能还有其他小伙伴需要这个功能,于是就PO出来,供需要的人使用,当然也可以作为学习C#编写ActiveX的一个简单入门教程. 功能截图如下: 代码分为两个核心部分:1.C#屏幕截图:2.C#开发ActivX控件. 1.屏幕截图,这个在网上找到了一个只需要5行代码的实现(超级精简),截图后保存到本地,然后使用二进制读取jpg

转载:http://www.cnblogs.com/xalion/archive/2012/01/09/2317246.html 有网友问我常用的控件及功能.我先大概整理一下,以后会在文章里面碰到时再仔细介绍. Devexpress VCL 这个基本上覆盖了系统界面及数据库展示的方方面面,是做桌面系统必备的一套控件,目前的版本是2011.2.3, 支持win32 及win64. AutoUpgrader 这个是自动更新的一个小控件,适合桌面程序自动更新,但是自从2007 年后,就没有更新了,我对

写博客写了这么久,但是一直不知道应该怎么样写函数之间的调用关系和执行顺序,因为不停的跳来跳去的,但是写的时候却只能顺序写调用关系,直到今天发现这种写法很不错: TButton创建窗口是在CreateWnd方法开始,下面是创建的一个大概流程:TButton.CreateWnd;| TWinControl.CreateWnd;| | TButton.CreateParams(var Params: TCreateParams);| | | TButtonControl.CreateParams(va