方法:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dial…
删除memo某一行varI:integer;str:String;beginforI:=0toMemoUrlList.lines.count-1dobeginif(MemoUrlList.l…
usesSystem.Net.URLClient,System.Net.HttpClient,System.Net.HttpClientComponent;似乎没有直接(公共)访…
varIdHTTP1:TIdHTTP;postStream:TStringStream;Wstr:WideString;res:WideString;beginIdHTTP1:=TidHTTp.cre…
procedureTForm1.Button3Click(Sender:TObject);varpf:PARAFORMAT2;beginFillChar(pf,sizeof(paraformat2),…
procedureTForm1.Button4Click(Sender:TObject);constPFNS_PAREN=$000;//e.g.1)PFNS_PARENS=$100;//e.g.(1)…
当RichEdit为可用状态时,是不用代码控制此操作的,TRichEdit本身就可以定位光标。但是当RichEdit开始不可用…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…
procedureT****1.ScrollBoxMouseWheel(Sender:T****;Shift:TShiftState;WheelDelta:Integer;MousePos:TPoin…
首先单击项目->资源和图像:
ifButton5.caption='开始'thenbeginButton5.caption:='停止';Timer1.Enabled:=true;Timer1.Interval:=5000;…
最近做的工具需要实现串口转UDP中间件,中间件与下位机通过RS232通讯,与接收服务器通过UDP通讯。在传输过程…
useWinapi.ActiveX;//调用IPersistStreamInit类procedureTForm1.Button2Click(Sender:TObject);varPostList…
前言我们在浏览网页的时候HTTP协议头里会包括一项数据User-Agent,这个User-Agent会告诉网站服务器,我们是…
forI:=0to200dobeginEdit_Y.Items.Add((1949+i).ToString);end;Edit_Y.ItemIndex:=Edit_Y.Items.IndexOf(fo…
代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,D…
T****ayIcon的主要属性:****ayIcon.Icon指定托盘图标,有几种用法:1、设计时选择;2、把一个TIcon对象给它;3、…
代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,D…
制作过程:先添加一个TCategoryPanelGroup,再从其右键菜单->NewPanel,反复添加三个TCategoryPanel.本例测试了…
本例效果图:代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Contr…