紧急求救：如何在DBGRID中显示出下拉列表？(50分)

1.双击DBGrid
2.选择需要PickList而不用PickList属性的Column
3.将ButtonStyle设为cbsEllipsis
4.在DBGrid的OnEditButtonClick中添加代码，
可以打开一个对话框，让用户选择。然后将值赋给字段例如：
//PickDate对话框是让用户选择日期，返回一个TDateTime类型的值
//Form1中有两个DBGrid,没个DBGrid中均有一项是TDateTime
procedure TForm1.DBGrid1EditButtonClick(Sender: TObject);
begin
if Sender=DBGrid1 then tb1.FieldByName('Fixture').asDateTime:=PickDate
else tb2.FieldByName('OpenDate').asDateTime:=PickDate;
end;

//PickDate函数弹出一个对话框是用户选择日期，返回一个TDateTime类型的值

to DJ:
怎样模拟Ctrl+鼠标左键? 如下为何不行:
keybd_event(vk_control,0,0,0);
keybd_event(vk_lbutton,0,0,0);
keybd_event(vk_lbutton,keyeventf_keyup,0,0);
keybd_event(vk_control,keyeventf_keyup,0,0);
如果用sendmessage该怎么写?

想不到XXY："I am a girl."
如果时间太长了请结束问题。

接受答案了.