OnMouseDown for each column title at DBGrid

[dsyrios]

Please,
I want to handle the Left or Right-click of the mouse
on the Header/Titles of a DBGrid for each column.
I've done a try with OnMouseDown, (see the attachment)
but I wonder if there is something else more efficient and net.
Thanks in advance.

[balazsszekely]

Code: [Select]

procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ACol, ARow: Integer;
begin
  if Y < DBGrid1.DefaultRowHeight then
  begin
    (Sender as TDBGrid).MouseToCell(X, Y, ACol, ARow);
    case Button of
       mbRight: ShowMessage('Right mouse down on column title: ' + IntToStr(ACol));
       mbLeft:  ShowMessage('Left mouse down on column title: ' + IntToStr(ACol));
    end;
  end; 
end;

[dsyrios]

Thanks @GetMem,
it's much better, it's the right way !