10 2011 档案

Delphi中本年、本月、本周第一天和最后一天
摘要：uses DateUtils;function StartOfTheYear(const AValue: TDateTime): TDateTime;function EndOfTheYear(const AValue: TDateTime): TDateTime;function StartOfAYear(const AYear: Word): TDateTime;function EndOfAYear(const AYear: Word): TDateTime;function StartOfTheMonth(const AValue: TDateTime): TDateTime;func 阅读全文
posted @ 2011-10-20 13:34 毛小毛 阅读(1822) 评论(0) 推荐(0) 编辑
Delphi ActionList详解
摘要：一个友好的用户界面,必须具有下拉菜单，弹出菜单，工具条和快捷键。同样一个功能，程序员可能要提供几种操作方式，如文本拷贝，菜单命令&Copy,快捷键Ctrl+C,工具条上的拷贝按钮，都是程序员提供给用户的操作，可以大大方便了不同层次的用户。但是，多增加一种操作方式，就意味着增加响应事件的代码，还有，实现统一功能的多个操作必须一致，如剪切板上不为空的时候，菜单命令，快捷键，按钮，都是可以选择的Enabled状态，而剪切板上没有内容时，这些构件的Enabled状态都为假。当然，如果不集中控制这些细节的话，实现相同功能的构件要一致，必须多增加代码，控制较为复杂。Action就是将实现某个功能的 阅读全文
posted @ 2011-10-12 16:43 毛小毛 阅读(10847) 评论(0) 推荐(2) 编辑
批处理自己更新自己
摘要：classprocedureTVTUpgrader.UpdateSelf(constFileName:TVTString);varLBatchFile:TextFile;LBatchFileName:TVTString;LProcessInfo:TProcessInformation;LStartUpInfo:TStartupInfo;begin//批处理文件名LBatchFileName:=ExtractFilePath(ParamStr(0))+'_deleteme.bat';//打开文件，设置覆盖模式AssignFile(LBatchFile,LBatchFileName 阅读全文
posted @ 2011-10-11 15:37 毛小毛 阅读(565) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示