发文章
发文工具
撰写
网文摘手
文档
视频
思维导图
随笔
相册
原创同步助手
其他工具
图片转文字
文件清理
AI助手
留言交流
来自: delphi_笔记 > 《delphi》
0条评论
发表
请遵守用户 评论公约
快速检测是否联网
//正确检测是否在线方法 if InternetGetConnectedState(nil, 0) then begin Self.Caption:= ''在线''; end else begin Self.Caption:= ''脱机''; end;
Delphi 中使长循环有响应
Delphi 中使长循环有响应//┏━━━━━━━━━━━━━━┓//┃代码着色:CodeColor v1.0 ┃//┃来自:悄然无声的 Blog ┃ //┗━━━━━━━━━━━━━━┛。b:boolean;procedure TForm1.Button1...
delphi 取得汉字编码及区位码
delphi 取得汉字编码及区位码delphi 取得汉字编码及区位码 时间:2011-5-26来源:yang 作者: peng点击: 12次。function StrToGBC(mStr: string): string;{ 返回汉字所对应的区位码 }begin.if Length(mStr...
用Delphi制作动态菜单
用Delphi制作动态菜单。2.确定生成的菜单的功能,即定义菜单的OnClick()事件,例如,菜单标题来自一个磁盘文件名时,那么在响应OnClick()事件时,可能的操作是要打开选中的文件。这里调用的ShowMessag...
转delphi过程函数传递参数的几种方式
转delphi过程函数传递参数的几种方式delphi过程函数传递参数的几种方式2010-02-16 21:22.OrigNum:=Value+'' Me'';//OrigNum为''Hello Me''lblOrig.Caption:=Value;//V...
ListView用法[delphi
ListView用法[delphiListView用法[delphi]2010-06-24 22:56.Items[Listview1.->将焦点上移一行:For i:=0 to ListView1.Items.Count-1 DoIf (ListView1.Items[i].Selected) and (i>0) thenbeginL...
Delphi ListView用法
Delphi ListView用法Delphi ListView用法2008-12-31 16:32.ListView1.beginwith listview1 dobegin.columns.items[0].caption:=''进程名'';columns.items[1].caption:=''进程I...
delphi 远程传输文件汇总
Delphi 7 中的随机函数
Delphi 7 中的随机函数 Delphi 7 中的随机函数。//以上用于放置七位号码BitBtn1: TBitBtn;BitBtn2: TBitBtn;BitBtn3: TBitBtn;Timer1: TTimer;Label8: TLabel;Timer2: TTimer;procedure BitBtn1Click(S...
微信扫码,在手机上查看选中内容