ehlib中有一个DBGrideh的,可以实现你要的功能
http://www.developres.com/dispdoc.asp?id=767
http://www.developres.com/dispdoc.asp?id=767
解决方案 »
- 高手帮忙,两个城市数据库同步
- 封面窗体如何暂停呢????????????
- ERR MSG: p_InsertMerch():External exception C000001D
- 线程、数据库、CPU(现金求解)最好在CHENGDU
- dbgrid中怎样捕捉换行操作?[悬赏50分]
- 请大家急救:关于ADODataSet的问题,大家HELP??????
- 我想将一个表中的所有字段的内容送入word中规定的表格中,请问谁能给出一个例子???
- StretchHandle的问题
- 一个DELPHI 人应该知道而我不知道的问题
- 众里寻他千百度(深圳福田求贤)
- 怎样用SQL将一个表的内容导入另一个表?
- 我用delphi可以编写出手机短信息程序,但怎么样可以入网页中使用呢。
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.DateTimePicker1CloseUp(Sender: TObject);
begin
adotable1.edit;
adotable1.fieldbyname('出生年月').value:=DateTimePicker1.datetime;
DateTimePicker1.Visible :=false;
end;procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if dbgrid1.Columns [dbgrid1.SelectedIndex ].FieldName ='出生年月' then
DateTimePicker1.Visible :=true
else
DateTimePicker1.Visible :=false;
end;