09 2011 档案

DELPHI 动态 创建和释放 多个 EDIT 控件
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) pnl1: TPanel; btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); privat... 阅读全文
posted @ 2011-09-17 10:45 aBung 阅读(8925) 评论(0) 推荐(0)
DELPHI 获取本月 的第一天 和 最后一天
摘要：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 阅读全文
posted @ 2011-09-10 14:58 aBung 阅读(10274) 评论(0) 推荐(0)
DELPHI动态创建窗体
摘要：//第一种方式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里释放资... 阅读全文
posted @ 2011-09-10 13:44 aBung 阅读(6586) 评论(0) 推荐(0)