菜鸟请求帮忙：在Delphi的DBGrid中，如何方便用户的日期字段的输入及输入后的有效性检查？？

[xlzps]

希望能提供一个较简单的解决方法！！
不好意思，我刚加入，无分可送，望各位大虾能够谅解！

[lwm8246]

在 Dataset的 beforepost 事件中检查
var str:string;
try
str:=strtodate(dataset.fieldbyname('datefield_Name').asstring);
except
dataset.cancel;
showMessage('some error');
abort;
end;

[Nicky_he]

放一个datetimepicker控件，
以下是放dbcombox的情形：
1、form.create时 隐藏
dblookupcombo1.visible:=false;
2、
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if (gdFocused in State) then
begin
if (Field.FieldName = DBLookupCombo1.DataField) then
begin
DBLookupCombo1.Left := Rect.Left + DBGrid1.Left;
DBLookupCombo1.Top := Rect.Top + DBGrid1.top;
DBLookupCombo1.Width := Rect.Right - Rect.Left;
{ DBLookupCombo1.Height := Rect.Bottom - Rect.Top; }
DBLookupCombo1.Visible := True;
end;
end;
end;
3、
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
If DBGrid1.SelectedField.FieldName = DBLookupCombo1.DataField then
DBLookupCombo1.Visible := false;
end;
4、
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if (key <> chr(9)) then
begin
if (DBGrid1.SelectedField.FieldName = DBLookupCombo1.DataField) then
begin
DBLookupCombo1.SetFocus;
SendMessage(DBLookupCombo1.Handle, WM_Char, word(Key), 0);
end;
end;
end;
把它改动一下就变成datetimepicker了，
不过也可以找别的如rxlib的dbdateedit;

[xlzps]

这样做好像不行吧，
str:=strtodate(dataset.fieldbyname('datefield_Name').asstring);
这条语句好像不对！

[xlzps]

to lwm8246
str:=strtodate(dataset.fieldbyname('datefield_Name').asstring);
这条语句好像不对！

[xlzps]

to Nicky_he(尼克)　
用datetimepicker控件替代的方法，在DBEdit中要输入时间时我试过，很好实现！DBGrid中，没有用过，我去试试！！谢谢你们的帮忙！！

[xlzps]

to Nicky_he(尼克)　
你的方法能否说的详细一点，DBLookupCombo1的属性是否要设置？？

[lwm8246]

sorry:

在 Dataset的 beforepost 事件中检查
//var str:string;
var str:Tdatetime;
try
str:=strtodate(dataset.fieldbyname('datefield_Name').asstring);
except
dataset.cancel;
showMessage('some error');
abort;
end;