摘要： procedure TForm1.FormCreate(Sender: TObject);var firstDay,lastDay:TDateTime;begin firstDay := StrToDate(FormatDateTime('yyyy-mm-1',Now)); (* 本月第一天 *) lastDay := IncMonth(firstDay)-1; (* 本月最后一天 *) mmo1.Lines.Add(DateTimeToStr(firstDay)); mmo1.Lines.Add(DateTimeToStr(last... 阅读全文

摘要： 今天研究了一下TValueListEditor控件，实现了以下功能：·按回车键后，自动切换到下一行·检测输入的值是否为浮点数，如果不是则弹出错误提示·只允许输入0..9、负号、退格键。详细功能还是看代码吧.....unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, ValEdit;type TForm1 = class(TForm) lst1: TValueListE 阅读全文