摘要: 方法一: 首先,设置控件的hint属性。然后,把StatusBar1控件的AutoHint属性设置为true。方法二: 1.放一个TMainMenu到form上,设定菜单项的Hint属性,比如Hint="关闭|退出程序";设定ShowHint=true; 2.放置一个TStatusBar到Form上;3.找到控件面板Additional的ApplicationEvents1控件,放置到form上,... 阅读全文
posted @ 2010-07-17 15:50 鸽子888 阅读(191) 评论(0) 推荐(0) 编辑
摘要: 1、DecodeDateprocedure TForm1.Button1Click(Sender: TObject);var wYear1,wYear2,wMonth1,wMonth2,wDay1,wDay2:word; wYearDiff,wMonthDiff:Integer; date1,date2:String;begin date1:='2009-12-01'; date2:='2010-... 阅读全文
posted @ 2010-07-17 14:20 鸽子888 阅读(158) 评论(0) 推荐(0) 编辑