Código Delphi [-]procedure TForm1.dbgrd1TitleClick(Column: TColumn); begin ShowMessage(IntToStr(Column.Index)); end;
procedure TForm1.dbgrd1TitleClick(Column: TColumn); begin ShowMessage(IntToStr(Column.Index)); end;