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

delphi 打开WEBBROWSER的选中文件路径

usesCommCtrl,httpApp,ShellApi;{GetWebPath(WebBrowser1);}functionGetWebPath(web:TWebBrowser):string;varitem:TLvItem;clsName:array[0..MAX_PATH]ofchar;hwndLv:HWND;selCount,fileCount,selMark:Integer;fileN…
类别:组件 标签: 作者:admin 日期:2014-01-22 23.13.12

delphi 在运行时改变控件的大小

<pstyle="box-sizing:border-box;color:#4b4b4b;font-family:Verdana,Arial,Helvetica,sans-serif;font-size:13px;line-height:15...
类别:组件 标签: 作者:admin 日期:2014-01-22 23.01.03

delphi 高亮选中MEMO某一行

选中第5行//转到指定行并选中这行的文本procedureSelectLine(Memo1:TMemo;ln:Integer);beginMemo1.SelStart:=SendMessage(Memo1.Handle,EM_LINEINDEX,ln-1,0);Memo1.Se...
类别:组件 标签: 作者:admin 日期:2014-01-22 22.43.32

delphi opendialog控件用法

一.常用属性1.DefaultExt特性:当用户未输入文件扩展名时它用于指明默认的扩展名。2.FileName特性:它为string型用于记录最后一个被选中的文件的全路径名。默认为空。3.Filter(过滤器)特性:它用于设置打开对话框中…
类别:组件 标签: 作者:admin 日期:2014-01-13 11.28.12

delphi Opendialog文件过滤类型

格式只显示exe文件exe文件(*.exe)|*.exeexe文件(*.exe)显示在文件类型里,中间用|隔开,|后面代表过滤exe以外的其他类型文件opendialog1.filter:='所有文件(*.*)|*.*';opendialog1.filter:='文本文件(*.txt)|*.txt';…
类别:组件 标签: 作者:admin 日期:2014-01-13 11.27.37

delphi xe vcl - Tlinklabel(链接标签)

编辑该控件OnLinkLink事件,代码如下:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Con****ols,****s,Dialogs,ExtC****ls,ShellAPI;typeT****1=class(T****)LinkLabel1:TLinkLabel…
类别:组件 标签:Tlinklabel 作者:admin 日期:2014-01-13 11.08.19

Delphi PageControl不顯示Tab方式

方法很簡單,建立好TabSheet後,將TabSheet的TabVisible屬性設為False。接著只要用程式去控制就行了PageControl1.ActivePageIndex:=x(TabSheetIndex);或PageControl1.ActivePage:=x(TabSheetName);
类别:组件 标签: 作者:admin 日期:2013-12-31 14.21.15

Delphi动态建立Panel无法更改颜色?

动态建立TPanel元件時,發現設定了Color屬性後無效。解決的方式很簡單,要設定Panel的ParentBackground為false就可以了!順帶一提,如果把ParentBackground設為True的時候,就會看到Panel會有透空的效果。
类别:组件 标签: 作者:admin 日期:2013-12-31 14.20.25

delphi memo 自动滚动到最底下

//定位Memo到底部,显示最新输入SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);参考:SB_LINEUPSB_LINELEFTSB_LINEDOWNSB_LINERIGHTSB_PAGEUPSB_PAGELEFTSB_PAGEDOWNSB_PAGERIGHTSB_THUMBPOSITIONSB_THUMBTRACK…
类别:组件 标签: 作者:admin 日期:2013-11-28 09.52.35

Delphi中用IdHttp获取json数据乱码问题

最近捡起丢了10年的Delphi来玩,想试试对json的数据处理。试了TSuperObject和TlkJSONobject,都发现拉回的数据是乱码,运行exe就报错。测试发现获取的json源数据中间汉字的地方是乱码,导致引号不配对,引发内存错误…
类别:组件 标签: 作者:admin 日期:2013-11-24 22.30.15

delphi TWebBrowser与嵌入Youtube视频崩溃

typeTForm1=class(TForm)WebBrowser1:TWebBrowser;Button1:TButton;Button2:TButton;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);end;implementationusesActiveX;procedure...
类别:组件 标签: 作者:admin 日期:2013-11-24 13.44.28

Delphi中WebBrowser(或者EmbeddedWebBrowser)控件打开部分网站报“Invalid floating point operation”异常的解决方法

最近用EmbeddedWB控件做浏览器相关应用的时候,发现有些网页只要一打开就一定会蹦出一个“Invalidfloatingpointoperation”异常(关掉异常对话框以后,浏览器无响应),而程序仅仅是一句?WebBrowser1.Navigate(Edit1…
类别:组件 标签: 作者:admin 日期:2013-11-24 13.12.55

delphi TWebbrowser打开paypal出错

直接nevigate打开https://www.paypal.com出现invalidfloatingpointoperation的错误,同时页面中的连接就无法再在tWEBbrowser中访问了.有办法解决这个错误么unitUnIT1;interfaceusesWindows,Messages,SysUtils,Variant…
类别:组件 标签: 作者:admin 日期:2013-11-24 13.11.25

delphi 禁止用键盘左右箭头,去切换PageControl页签

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls;typeTForm1=class(TForm)PageControl1:TPageControl;TabSheet1:TTabSheet;TabSheet2:TTabSheet;proc…
类别:组件 标签:PageCon****ol 作者:admin 日期:2013-11-22 19.43.58

delphi Webbrowser中模拟连接点击(非鼠标模拟)

usesmshtml,ActiveX;//初始加载主页procedureTForm1.FormCreate(Sender:TObject);beginWebbrowser1.Navigate('http://www.3464.com/');end;procedureTForm1.Button1Click(Sender:TObject);varI:Integer;Document:IHT…
类别:组件 标签:Webbrowser 作者:admin 日期:2013-11-22 19.42.29

Delphi 使用idhttp下載显示进度以及大小

<pstyle="c...
类别:组件 标签:idhttp 作者:admin 日期:2013-11-20 21.39.03

Delphi著名皮肤控件库大全评测

皮肤这东西很多人褒贬不一,有人认为程序做的好就行了,界面还是保持原生态来的稳定。的确,稳定是程序至关重要的一点,离开这点其他任何都无从谈起,但不可否认,无论是微软、苹果,还是大众用户,审美观越来越高,…
类别:组件 标签:皮肤控件 作者:admin 日期:2013-11-20 16.01.50

delphi listbox 使用

listbox删除删除选中的某个:procedureTForm1.Button1Click(Sender:TObject);vari:integer;begini:=0;whilei<listbox1.Countdo//删除掉前一个后,下一个会上移,所以用whileiflistbox1.selected[i]thenlistbox1.Item…
类别:组件 标签: 作者:admin 日期:2013-11-15 11.35.53

Delphi里树形菜单的实现

看到好多应用软件的主界面上有一个“树形菜单”,把系统常用的、公开的功能链接起来,既漂亮又方便快捷,非常羡慕。现在,我终于做出了我自己的树形菜单,虽然简单,但实用。更重要的是我获得了一点儿心理上的愉悦是…
类别:组件 标签: 作者:admin 日期:2013-11-15 11.26.51

delphi 获取Webbrowser中的图片

procedureTfrmMain.DomImg2Image(wb:TWebBrowser);vari:Integer;rang:IHTMLControlRange;s:string;begintrys:=(IHTMLDocument2(wb.Document).images.item('pic',EmptyParam)asIHTMLElement).getAttribute('src',0);r…
类别:组件 标签: 作者:admin 日期:2013-11-12 11.05.12