摘要： 1、USER ：DateUtils2、使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可；procedure TForm1.btn1Click(Sender: TObject);begin mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now))); mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',EndOfTheMonth(Now))); //mmo1.Lines.Add(DateTimeToStr(StartOfThe 阅读全文

摘要： //第一种方式procedure TForm1.btn1Click(Sender: TObject);beginWith TForm2.Create(Application) doTry ShowModal;finally free;end;end;//第二种方式procedure TForm1.btn2Click(Sender: TObject);begin if not assigned(Form2) then begin Form2:=TForm2.Create(nil); Form2.Show; endend;//第二种方式创建的的窗体需要在FORM2里释放资... 阅读全文