procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
_date:TDateTime;
strDate:String;
begin
// 时间选好后会2次到这里。为什么
_date:=DateTimePicker1.Date;
strDate:= IntToStr(YearOf(_date))+IntToStr(MonthOf(_date))+IntToStr(DayOf(_date));
ShowMessageBoxFromString(strDate,WebBrowser1);end;
var
_date:TDateTime;
strDate:String;
begin
// 时间选好后会2次到这里。为什么
_date:=DateTimePicker1.Date;
strDate:= IntToStr(YearOf(_date))+IntToStr(MonthOf(_date))+IntToStr(DayOf(_date));
ShowMessageBoxFromString(strDate,WebBrowser1);end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货