[记录一下]lazarus DBGrid Datetime类型时下拉选择日期

默认的lazarus DBGrid选择Datetime类型时是没有下拉选择日期的，按以下方法就能实现下拉选择日期。
在界面放一个DBDateTimePicker控件，并设置控件的Visibler为false,在DBGrid的OnSelectEditor添加下面的代码就可以。

procedure TForm1.DBGrid1SelectEditor(Sender: TObject; Column: TColumn;
  var Editor: TWinControl);
begin
  if (TDBGrid(Sender).SelectedField.DataType=ftDateTime) or (TDBGrid(Sender).SelectedField.DataType=ftDate)  then
  begin
    DBDateTimePicker1.DataSource:=TDBGrid(Sender).DataSource;
    DBDateTimePicker1.DataField:=TDBGrid(Sender).SelectedField.FieldName;
    DBDateTimePicker1.boundsRect:=TDBGrid(Sender).SelectedFieldRect;
    Editor:=DBDateTimePicker1;
  end;
end;