右键单击如何和dbgrid的titleclick关联起来

Question

我想知道dbgrid的事件ontitleclick是如何和左键单击关联的。我看了dbgrids.pas单元，却找不到。其实我主要是想实现这样的一个功能，即右键单击dbgrid某一列，可以得到列名。

Answer 1

procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    ShowMessage(DBGrid1.SelectedField.FieldName)
end;

Answer 2

procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    ShowMessage(DBGrid1.SelectedField.FieldName)
end;