RSS订阅 | 匿名投稿
您的位置:网站首页 > 组件

delphi中获取memo鼠标所在位置的行和列

functionGetLine(X,Y:integer):TPoint;varOldFont:HFont;Hand:THandle;TM:TTextMetric;Rect:TRect;beginHand:=GetDC(mmotest.Handle);tryOldFont:=SelectObject(Hand,mmotest.Font.Handle);tryGetTextMetrics(Hand,T…
类别:组件 标签: 作者:admin 日期:2018-01-02 16.01.25

delphi idHttp上传图给ASP完美解决

delphiidHttp上传图给ASP完美解决unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,IdBaseComponent,IdComponent,IdTCPConnection,IdTCPClient,IdHTTP,StdCtrls…
类别:组件 标签:idHttp 作者:admin 日期:2018-01-02 14.54.14

delphi TChart 的使用

最近开发要使用图表,Delphi里提供了图表开发的控件TChart,可惜帮助里没有DEMO代码,上网搜索了一下,竟然发现文章也少的可怜。没办法,自己丰衣足食,写代码试用,看帮助,读代码,搞了半天大概弄明白了TChart的使…
类别:组件 标签:TChart 作者:admin 日期:2018-01-02 14.47.50

Delphi WebBrowser 使滚动条滚动到底部

网上的代码不好使,下面是经过改正的:(webbrowser1.DocumentasIHTMLDocument2).parentWindow.scrollTo(0,((webbrowser1.DocumentasIHTMLDocument2).bodyasHTMLBody).scrollHeight);
类别:组件 标签: 作者:admin 日期:2018-01-02 14.13.34

Delphi直接插入法排序示例

Delphi直接插入法排序示例,将一数组按插入法排序的方法进行有序排列,可视化操作窗口,如下图所示,点击“排序”按钮即可实现排序功能。插入法排序Delphi插入法排序代码如下:unitUnit1;interfaceusesWindows,Messa…
类别:组件 标签: 作者:admin 日期:2018-01-02 11.00.36

Delphi中将DBGRID中的内容输出到WORD中

在使用DELPHI开发过程中发现网上有很多的开发朋友询问关于将DBGRID中的内容导出到一个WORD中的方法。想想可以帮帮大家,所以就自己写了一个。希望对大家的软件开发有帮助。下面是源代码。其中我使用了RZ的控件,用DE…
类别:组件 标签: 作者:admin 日期:2017-12-31 00.26.36

delphi 在RichEdit中插入GIF图片的方法

许多人在找RichEdit中插入GIF图片的方法,这里摘录一段我的一个程序的片段,程序中使用了QQ中的OleImage.dll,要先象安装OCX控件一样安装,安装后产生一ImageOleLib_TLB文件,要加入到工程中,并要安装rxRichEdit控件…
类别:组件 标签: 作者:admin 日期:2017-12-31 00.18.27

Delphi DbGrid鼠标滚屏

Delphi的DbGrid默认不支持滚屏。通过一下代码可以让DbGrid支持鼠标滚屏procedureNewGridWnd(varmessage:TMessage);OldGridWnd:TWndMethod;procedureTForm1.FormCreate(Sender:TObject);begin//支持鼠标滚动OldGridWn…
类别:组件 标签: 作者:admin 日期:2017-12-30 23.57.57

Delphi DBGrid 表格自适应宽度

(*//标题:数据网格自动适应宽度说明:使用DBGrid不可不看设计:Zswang日期:2002-03-04支持:wjhu111@21cn.com//*)///////BeginSourceusesMath;functionDBGridRecordSize(mColumn:TColumn):Boolean;{返回记录数据网格列显…
类别:组件 标签: 作者:admin 日期:2017-12-30 23.54.54

delphi强制WebBrowser控件使用指定版本显示网页

functionTFrmmain.WriteAppNameToReg:Boolean;varreg:TRegistry;sPath,sAppName:String;Sver:string;lenver:Integer;beginResult:=True;reg:=TRegistry.Create;tryreg.RootKey:=HKEY_LOCAL_MACHINE;...
类别:组件 标签:WebBrowser 作者:admin 日期:2017-12-29 08.33.51

Delphi WebBrowser 无法调用当前浏览器的版本

procedure****egedtIE.****Create(Sender:T****);beginWriteAppNameToReg;WebBrowser1.Navigate('C:\a.html');end;{--}{需要注意是GetNativeSystemInfo函数从WindowsXP开始才有,而IsWow64Process函数从Wind…
类别:组件 标签:WebBrowser 浏览器 作者:admin 日期:2017-12-29 08.23.40

delphi Memo加个PromptText

TEdit有PromptText属性,用来显示一个提示,又不影响输入。TMemo没有,在官方提了需求也没响应。实在没办法,自己加个。话不多说,上代码:typeTForm6=class(TForm)Memo1:TMemo;Button1:TButton;Button2:TButton;pro…
类别:组件 标签: 作者:admin 日期:2017-12-15 19.13.26

delphi 限制TEdit控件只能输入数字,小数点和负号

执行这些代码,Edit1只能输入数字、小数点和负号,负号和小数点只能输入一个,负号必须在最前,粘贴的数字必须完全正确,不能以限制Ctrl_V的使用为前提。type<spanstyle="color:#555555;fon...
类别:组件 标签: 作者:admin 日期:2017-12-15 18.25.03

delphi IDHttp Post

procedureTForm1.Button1Click(Sender:TObject);varT:TStringStream;ts:TStringList;SvrUrl,postUrl:string;beginSvrUrl:='http://app.25hours.cc:6077/webservice/25hours.asmx/StruUp';postUrl:='';ts:=TStringLis…
类别:组件 标签: 作者:admin 日期:2017-03-28 23.38.29

delphi IdHTTP中设置非标准头信息和读写cookie

fori:=0toIdHTTP1.Response.RawHeaders.Count-1dobeginifUpperCase(Copy(IdHTTP1.Response.RawHeaders[i],1,10))='SET-COOKIE'thenbeginsCookieTmp:=Trim(Copy(IdHTTP1.Response.RawHeaders[i],12,MAXINT));sCookieT…
类别:组件 标签: 作者:admin 日期:2017-03-28 23.12.56

delphi idhttp基本使用方法

IDHttp和WebBrowser一样,都可以实现抓取远端网页的功能,但是http方式更快、更节约资源,缺点是需要手动维护cook,连接等IDHttp的创建,需要引入IDHttpprocedureInitHttp();beginhttp:=TIdHTTP.Create(nil);http.Re…
类别:组件 标签: 作者:admin 日期:2017-03-19 09.09.10

delphi中indy10 的Idtcpserver断开客户端连接报错问题的解决办法

我们常用IdTCPServer1.Active:=false;来关闭Idtcpserver,但这样会出卡机,并且操作也不会成功,后来,我改为这样:vari:integer;AList:TList;beginAList:=IdTCPServer1.Contexts.LockList;tryfori:=AList.Count-1do…
类别:组件 标签: 作者:admin 日期:2017-03-15 19.03.03

Delphi自动提交网页表单和获取框架网页源码

这两个问题的实现原理其实是差不多的,所以放在一起介绍,单元MSHtml封装了我们需要的功能。首先,新建一个DELPHI工程,在USES部分添加MSHtml单元的引用。然后,在窗体上放置一个TWebBrowser控件和四个按钮。最后,编…
类别:组件 标签: 作者:admin 日期:2016-01-26 22.07.15

Delphi捕获TWebBrowser的Close事件

Delphi使用TWebBrowser控件开发自己的浏览器,如果访问的网页有关闭窗口的JavaScript代码,那么TWebBrowser控件被注销,但应用程序本身并没有关闭,这似乎不是软件开发者乐意看到的。下面的示例介绍了一种捕获网页被…
类别:组件 标签: 作者:admin 日期:2016-01-26 22.04.37

Delphi在设计时设置TStringGrid控件各列的列宽

新建一个Delphi工程,在窗体上添加一个TStringGrid控件,在窗体上点击鼠标右键,在弹出的右键菜单中选择“ViewasText”,找到StringGrid1的定义部分,添加各列的列宽值即可,注意:添加的列宽值个数要与StringGrid1的…
类别:组件 标签: 作者:admin 日期:2016-01-26 22.00.25