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

delphi RichEdit控件中插入GIF动画表情

delphi在RichEdit控件中插入GIF动画表情在UDP即时通讯软件中实现类似于QQ的动画表情,在richEdit控件中插入gif动画表情。发送的时候将表情转为命令,接收之后,再将命令转换为相应的动画表情。需要引用一个QQ的DLL,…
类别:组件 标签: 作者:admin 日期:2013-03-25 16.21.28

Delphi RichEdit的实现MSN / QQ 中的动画表情

unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ActiveX,ComCtrls,RxRichEd,ImageOleLib_TLB;//RxRichEd单元是Rxlib下的RxRichEdit,一套增强功能的RichEdit//…
类别:组件 标签: 作者:admin 日期:2013-03-25 16.20.23

delphi TWebBrowser 用法

WebBrowser1.GoHome;//到浏览器默认主页WebBrowser1.Refresh;//刷新WebBrowser1.GoBack;//后退WebBrowser1.GoForward;//前进WebBrowser1.Navigate('...');//打开指定页面WebBrowser1.Navigate('about:blank');//打开…
类别:组件 标签: 作者:admin 日期:2013-03-25 15.58.41

delphi WebBrowser1 网页提交按钮执行点击事件

遍历即可实现,下列代码仅供参考:vari:integer;T:OleVariant;beginT:=WebBrowser1.Document;fori:=0toT.all.Length-1dobeginifT.all.item(i).tagName='INPUT'thenbeginifT.all.item(i).t...
类别:组件 标签: 作者:admin 日期:2013-03-25 15.54.47

Delphi IDHTTP用法详解

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

delphi 如何编写使StringGrid中的一列具有Check功能,和CheckBox效果一样

如何编写使StringGrid中的一列具有Check功能,和CheckBox效果一样unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,Grids;typeTForm1=class(TForm)grid:TStringGrid;proc…
类别:组件 标签: 作者:admin 日期:2013-03-25 15.42.43

delphi RichEdit 的ScrollBar自动向下滚动

RichEdit.SelAttributes.Color:=TypeAndColor.Color;RichEdit.Lines.Add(TypeAndColor.StrData+str);PostMessage(RichEdit.Handle,WM_VSCROLL,SB_BOTTOM,0);
类别:组件 标签: 作者:admin 日期:2013-03-21 20.37.08

Delphi 7 中DBGrid的排序

procedureTfrmTraceReport.DBGrid1TitleClick(Column:TColumn);varSortField,FieldTitle:string;beginSortField:=Column.Field.FieldName;FieldTitle:=Column.Title.Caption;ShowMessage(SortField+''+FieldTitle);i…
类别:组件 标签: 作者:admin 日期:2013-03-21 20.36.28

delphi TOpenDialog打开和取消按钮的选择

TOpenDialog//打开文件对话框ifOpenDialog.Executethen//表示调用打开文件对话框begin//表示用户选择了打开文件endelseexit;//表示用户选择了取消文件
类别:组件 标签: 作者:admin 日期:2013-03-21 20.33.07

delphi 实现 托动PageControl上的标签页

procedureTMainForm.PageControl1MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);beginPageControl1.BeginDrag(False);end;procedureTMainForm.PageControl1DragDrop(Sender,Source:…
类别:组件 标签: 作者:admin 日期:2013-03-21 20.31.42

delphi中实现密码框“大写锁定打开”的提示

在登录windows时,如果大写锁定打开,且焦点处于密码输入框中,会出现气泡提示信息:“大写锁定打开保持大写锁定打开可能会使你错误输入密码……”...
类别:组件 标签: 作者:admin 日期:2013-03-21 20.28.20

delphi中DateTimePicker控件同时输入日期和时间

将DateTimePicker的Format属性中加入日期格式设成'yyyy-MM-ddHH:mm',注意大小写,将kind设置为dtkTime即可,可以在每次FormonShow时将DateTimePicker1.DateTime:=Now
类别:组件 标签: 作者:admin 日期:2013-03-21 20.27.00

delphi edit 让密码变成点

注意:这里不支持全角字符以及汉字,也就是这里面的值只能1字节!如果要实现类似XP圆点的话可以把文本框Font设置成WingDings,再将PasswordChar设置成小写的"l"就会出现圆点的注意:PasswordChar的掩码是按照字体会调…
类别:组件 标签: 作者:admin 日期:2013-03-21 20.25.20

delphi memo 滚动条 自动滚到最后一行

delphimemo滚动条自动滚到最后一行设置垂直滚动条:Propertie-->ScrollBars:=ssVertical;自动滚到最后一行:Memo1.SelLength:=Length(Memo1.Text);
类别:组件 标签: 作者:admin 日期:2013-03-08 22.11.29

DELPHI Memo1自动循环上下滚屏

DELPHIMemo1自动循环上下滚屏--------------Start--------------------procedureTForm1.Timer1Timer(Sender:TObject);beginifMemo1.Perform(EM_SCROLL,SB_LINEDOWN,0)=0thenbeginMemo1.Perform(WM_VSCROLL,SB_TOP,0)…
类别:组件 标签: 作者:admin 日期:2013-03-08 22.08.34

delphi中UpDown组件的使用方法

UpDown组件位于组件板的Win32页中。UpDown组件使用向上和向下的按钮来设置连续的整数值,例如将UpDown与一个Edit组件相关联,相当于一个SpinEdit组件的功能。程序运行后,用户单击向上或向下按钮时,Edit中的数字将连…
类别:组件 标签: 作者:admin 日期:2013-01-28 23.23.53

delphi Memo 的当前行、当前列与当前字符

procedureTForm1.Memo1Click(Sender:TObject);beginText:=Format('当前列:%d,当前行:%d',[Memo1.CaretPos.X,Memo1.CaretPos.Y]);end;//用API实现procedureTForm1.Memo1Click(Sender:TObject);varLineY,LineX:Integer…
类别:组件 标签:Memo 作者:admin 日期:2013-01-28 15.02.40

delphi ComboBox 只读 text属性可用的方法

ComboBox1.Style:=csDropDownList;ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf('asdasdasd');
类别:组件 标签: 作者:admin 日期:2013-01-28 13.12.04

delphi HttpGet 判断链接是否可以访问

functionHttpGet(idhttp:tidhttp;url,cookies:widestring;varhtml:string):boolean;beginresult:=true;tryidhttp.Disconnect;exceptend;idhttp.HandleRedirects:=true;idhttp.AllowCookies:=false;idhttp.HTTPOption…
类别:组件 标签:HttpGet 作者:admin 日期:2013-01-27 17.19.33

delphi使用Idhttp.get('') 造成假死(堵塞),请问线程idhttp怎么才能做到不出错?

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,IdBaseComponent,IdComponent,IdTCPConnection,IdTCPClient,IdHTTP;constWM_WebUpdate=WM_USER+1000…
类别:组件 标签:Idhttp 作者:admin 日期:2013-01-27 17.12.42