一个关于maskedit的疑问(15)

每次导入数据，在时间方面，一定要先点击记录向前或者记录向后按钮，MASKEDIT上面才会正常显示，请问这个是什么原因啊？[code delphi]procedure TForm4.LoadData;begin LabeledEdit2.Text := form1.abstable1.fieldByName('提醒人').AsString; MaskEdit1.Text := formatdatetime('HH:mm',Form1.ABSTable1.fieldbyname('提醒时间').asdatetime); memo1.text:=form1.abstable1.fieldByName('提醒内容').AsString; LabeledEdit1.Text := form1.abstable1.fieldByName('声音文件').AsString; if form1.abstable1.FieldByName('键盘提示').AsBoolean then ComboBox2.ItemIndex := 0 else ComboBox2.ItemIndex := 1; if Form1.ABSTable1.fieldbyname('提醒日期').asdatetime=0 then dateTimePicker1.Format :=' ' else datetimepicker1.date:=StrToDate(formatdatetime('yyyy-mm-dd',Form1.ABSTable1.fieldbyname('提醒日期').asdatetime))end;procedure TForm4.ToolButton1Click(Sender: TObject);beginForm1.ABSTable1.First ;LoadData;end;[/code]

上面的这个问题，自己解决了。犯了个低级错误。呵呵。现在的新问题是我怎么样判断MASKEDIT里面设定时间的完整性呢？我的代码如下，不好好像总是不会不会跳出我所指定的错误信息，而是系统自己默认的。不知道怎么搞，是我的代码有问题吗？procedure TForm4.MaskEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);var time: TDate;begin try time:=(StrTodate(MaskEdit1.Text)); except MessageBox(Handle, '请输入正确的时间格式！', 'ReminDer提醒', MB_OK + MB_ICONINFORMATION +MB_TOPMOST); MaskEdit1.SetFocus; end;end;

最后一个问题就是，我怎么样可以通过MASKEDIT保存时间呢？[code delphi]Form1.ABSTable1.fieldbyname('提醒时间').asdatetime:=StrToDatetime(formatdatetime('HH:mm',strtodate(MaskEdit1.Text)));[/code]上面这句总是提示错误。是哪里写错了呢？哎，怎么都没有人知道啊

设置editmask 为: !9999/99/99;1;_ 1. MaskEdit1 onexit事件 if strtodatetimedef(MaskEdit1.Text,0)=0 then MessageBox(Handle, '请输入正确的时间格式！', 'ReminDer提醒', MB_OK + MB_ICONINFORMATION +MB_TOPMOST);2.Form1.ABSTable1.fieldbyname('提醒时间').asdatetime:=StrToDatetime(MaskEdit1.Text);

楼上的试过了。没有用，依旧提示错误。你的MASKEDIT的editmask属性不对，我就只要时间，不要日期。按保存后，还是会提示，如“16：42”不是正确格式的时间