如何实现当点击dbgrid窗体的某一列时调出一个窗体

Question

各位老师好：
    什么事件能实现当鼠标点击dbgrid窗体内的某一特定列时能弹出一个窗体。
    
我是一个delphi菜鸟，望多指点。

Answer 1

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if dbgrid1.SelectedRows.Items[0]='条件' then
beginend;end;

Answer 2

procedure TfrmNureseRecord.DBGrid1CellClick(Column: TColumn);
begin
  if Column.FieldName='你的自段' then 
  begin
    
    aForm.ShowMode;
  end;
end;