- 博客(7)
- 收藏
- 关注
RSS订阅转载 状态栏显示控件的hint
方法一： 首先，设置控件的hint属性。然后，把StatusBar1控件的AutoHint属性设置为true。 方法二： 1.放一个TMainMenu到form上，设定菜单项的Hint属性,比如Hint="关闭|退出程序";设定ShowHint=true； 2.放置一个TStatusBar到Form上；...
2010-07-17 15:50:00
247
转载 求月份之差
1、DecodeDate procedure TForm1.Button1Click(Sender: TObject);var wYear1,wYear2,wMonth1,wMonth2,wDay1,wDay2:word; wYearDiff,wMonthDiff:Integer; date1,date2:String;begin date1:='2009-12...
2010-07-17 14:20:00
102
转载 线程与进程
学习多线程前，先学习下进程。 进程 是操作系统结构的基础；是一个正在执行的程序；计算机中正在运行的程序实例；可以分配给处理器并由处理器执行的一个实体；由单一顺序的执行显示，一个当前状态和一组相关的系统资源所描述的活动单元。 进程 是程序在计算机上的一次执行活动。当你运行一个程序，你就启动了一个进程。显然，程序是死的(静态的)，进程是活的(动态的)。 第一，...
2010-07-08 21:24:00
95
转载 delphi 从Config.ini文件中读取配置信息
proceudre TForm1.ReadConfig; Var mIni：TIniFile; filename,port:string; begin filename:=ExtractFilePath(paramstr(0))+'Config.ini'; mIni:= TIniFile.Creat(filename); try port:=mI...
2010-07-08 08:31:00
358
转载 delphi 长度相同的字符串，长度不同的话，前面用空格代替（DupeString）
function SameStr(Str: String; Len: Integer): String; var m:string; begin if Len >= Length(Str) then begin m := StrUtils.DupeString(' ', len-length(str)); Result:=m+str...
2010-07-08 08:19:00
270
转载 delphi 只能输入数字和小数点到编辑框内，屏蔽其他字符的输入
Procedure numonly(key :char); begin if (not (Key in ['0'..'9']) //数字 and (Key <> '.') and (Key <> #8) ) then //小数点和退回键 begin Key :=#0; end; end; 转载...
2010-07-08 08:11:00
195
转载 delphi 串口字符串转换为整型数据函数（copy）
例如“COM1”转换以后为“1”，“COM2”转为以后为2 function ComStrToInt(AComStr:string):smallint; var mLen: integer; mResult: string; begin mLen := Length(AComStr); mResult := Copy(AComStr,4,mL...
2010-07-07 21:47:00
313
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人