5,930
社区成员
发帖
与我相关
我的任务
分享如何将DateTimePicker控件插入DBGrid的某一列中？使之成为这一列的时间下拉框。
如何将DateTimePicker控件插入DBGrid的某一列中？使之成为这一列的时间下拉框。
...全文
请发表友善的回复…
发表回复
xiaolei_418 2002-05-11
- 打赏
- 举报
谢谢大家的参与！我试了以后一定给分
naogo 2002-05-11
- 打赏
- 举报
可以啊 自己编个控件来实现啊
呵呵 !!!~~~~~~~~~~~
呵呵 !!!~~~~~~~~~~~
vmao 2002-05-11
- 打赏
- 举报
用ip控件吧！
ken_henderson 2002-05-11
- 打赏
- 举报
原理就是自己在上面画一个，然后把值插入到DBGrid中，其他控件也可以这样处理
Bob7946 2002-05-11
- 打赏
- 举报
你自己可以写代码关联啊，怎么这么懒的？
在DBGrid的OnCellClick里判断一下，然后把datetimepicker的时间符成当前记录的时间字段的日期，在datetimepicker的OnChange里再把数据集的日期字段赋成datetimepicker的日期
在DBGrid的OnCellClick里判断一下，然后把datetimepicker的时间符成当前记录的时间字段的日期，在datetimepicker的OnChange里再把数据集的日期字段赋成datetimepicker的日期
loveness 2002-05-11
- 打赏
- 举报
to bob7946(X度空间)
根本没关联到DBGRID上有什么么用呀？
根本没关联到DBGRID上有什么么用呀？
chenlj 2002-05-11
- 打赏
- 举报
你把datetimepicker移到那个地方罢了...
Bob7946 2002-05-11
- 打赏
- 举报
呵呵，我知道呀
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdfocused in state) and (column.FieldName='你的日期字段名') then
begin
DateTimePicker1.SetBounds(rect.Left + dbgrid1.Left + 1,rect.Top + dbgrid1.Top +1,
rect.Right - rect.Left ,rect.Bottom -rect.Top);
end;
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdfocused in state) and (column.FieldName='你的日期字段名') then
begin
DateTimePicker1.SetBounds(rect.Left + dbgrid1.Left + 1,rect.Top + dbgrid1.Top +1,
rect.Right - rect.Left ,rect.Bottom -rect.Top);
end;
end;
xiaolei_418 2002-05-11
- 打赏
- 举报
没有人会吗？
xiaolei_418 2002-05-11
- 打赏
- 举报
没有人会吗？
chenlj 2002-05-11
- 打赏
- 举报
应该不行的...
aft_st_sd 2002-05-11
- 打赏
- 举报
不知道
xiaolei_418 2002-05-11
- 打赏
- 举报
有人吗？
xiaolei_418 2002-05-11
- 打赏
- 举报
up
