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

delphi 给Label1字加边的又一个算法

procedureTForm1.Button1Click(Sender:TObject);vartc:TCanvas;i,j:integer;color:TColor;egcolor:TColor;begintc:=Label1.Canvas;//Label1上面必须有字,而且是黑色的egcolor:=RGB(0,255,0);fori:=1toLabel1.Width-…
类别:组件 标签: 作者:admin 日期:2018-01-03 22.41.03

delphi 从TWebBrowser WebBrowser得到全部html源码

网上查询出很多方法,归结起来有两种1、使用IPersistStreamInit接口实现,函数名都是functionGetHtml(constWebBrowser:TWebBrowser):string;这个函数确实可以得到全部的html源码,但是里面用到了hHTMLText:=GlobalAl…
类别:组件 标签:TWebBrowser 作者:admin 日期:2018-01-03 22.37.08

Delphi 从 TWebBrowser中获得当前输入处的链接

varunsubscribeStr:string;ovSelection:OleVariant;innerDom,ovTextRange,nnode:OleVariant;beginovSelection:=Edit.doc.selection;//获得选择对象ovTextRange:=ovSelection.createRange;//createaTextRangefromthec…
类别:组件 标签:TWebBrowser 作者:admin 日期:2018-01-03 22.29.56

delphi 中 使用 TIdHTTP 提交Post数据

varfhttpRequest:TIdHTTP;PostData:TStringStream;tmpStr:String;beginfhttpRequest:=TIdHTTP.Create(nil);withfhttpRequestdobeginProtocolVersion:=pv1_1;AllowCookies:=True;ProxyParams.BasicAuthentication:=Fa…
类别:组件 标签: 作者:admin 日期:2018-01-03 22.29.16

delphi TWebBrowser出现 Method pasteHTML not supported by automation object 解决方法

先看下面的源码,在TWebBrowser当前编辑位置插入一个图片,是通过源码的方法插入的。varurlStr:string;ovSelection:OleVariant;ovTextRange:OleVariant;tmpStr:string;beginurlStr:='http://www.1and1-mail.com/imgv…
类别:组件 标签: 作者:admin 日期:2018-01-03 22.28.36

delphi tidhttp 超时设置无效的解决方法

现在delphi都发布到xe8了,tidhttp还有缺陷,那就是超时设置在没有网络或者连不上服务器的时候是无效的,不管你设置为多少都要10-20秒。connectTimeout和readTimeout都试过了,网上找了一圈,有人提出修改源码,我没…
类别:组件 标签:tidhttp 作者:admin 日期:2018-01-03 22.08.08

delphi (User Agent) of a TWebBrowser

constDISPID_AMBIENT_USERAGENT=-5513;typeTWebBrowser=class(SHDocVw.TWebbrowser,IDispatch)privateFUserAgent:string;procedureSetUserAgent(constValue:string);functionInvoke(DispID:Integer;constIID:TGUID;L…
类别:组件 标签: 作者:admin 日期:2018-01-02 17.46.45

delphi中实现控件的拖拽

提示:可以添加一个布尔来控制可否拖动的状态,这里提供所有都能拖动的方法。1procedureTForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;2Shift:TShiftState;X,Y:Integer);3begin4ReleaseCapture;5SendMes…
类别:组件 标签: 作者:admin 日期:2018-01-02 17.33.07

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