Klick auf Kopfzeile von StringGrid -> sortieren lassen

[Klaus01]

Der aufruf der Sortiermethode durch diesen Code funktioniert auch
wenn die Spalten gescrollt wurden.

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  col, row: Integer;
begin
  if button = mbright then
    begin
      StringGrid1.MouseToCell(X,Y,col,row);
      if (row = 0) then
        SortStringGrid(StringGrid1,[col]);
      if (Shift = [ssShift]) and (row > 0) then
        begin
          //############
          //ShowMessage(IntToStr(row));

          FormShowData.ShowModal;
        end;
    end;
end;

Grüße
Klaus