526互联

给dbgrid增加日期下拉列表

发布时间 2023-08-23 08:51:55作者: 仙侣步惊云

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