По щелчку правой клавиши мыши по шапке DBGrida узнать по какой колонке щелкнули

code: #pascal
procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  If Button = mbRight
  Then
    ShowMessage(DBGrid1.Columns[DBGrid1.MouseCoord(X,Y).X].Field.FieldName);
end; 

автор: Shaggy

Поделиться:

Похожие статьи: