判断DBGRID是否选中状态

[567890]

请问各位高手，我想实现的功能是当我单击DBGRID的中表格的任意一项就弹出一个对话框，我创建一个窗体，在此窗体上放入一个控件DBGRID，用来显示数据表中的内容，其中此数据表中的内容包括三个字段姓名，学号，政治面貌，当我单击姓名列中的张三这个人的名字时就会弹出对话框显示其出生日期1990-09-08，请各位高手帮助一下好吗？

[ppilu]

procedure TForm1.MyGridClick(Sender: TObject);
begin
if not (MyGrid.DataSource.DataSet.Bof or MyGrid.DataSource.DataSet.Eof) then
showmessage(MyGrid.DataSource.DataSet.Fields[0].AsString);
end;

将上面showmessage语句改为打开对话框的语句即可。
其中MyGrid.DataSource.DataSet.Fields[0].AsString是为了获得当前记录的某个字段值，正好用于获得你的出生日期。

[fuzhe2001]

dbclick上写

[菩提小树]

迟了

[blazingfire]

还是OnCellClick中写吧：
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
ShowMessage(Column.Field.AsString)
end;//别的事你自己应该能搞定了

[ppilu]

如果你不想在用户单击除姓名列以外的其他列时也弹出Dialog，那就按blazingfire说的，在OnCellClick中写。

[dreamfan]

在ONENTER中写代码

[ppilu]

onenter不行，那只会在焦点移到grid上时弹出对话框