StringGrid bei klick auf eine bestimme zelle sortieren

[dopeline]

Danke! Das funktioniert:

Delphi-Quellcode:

procedure TFormHaupt.SGPMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Column, Row: Longint;
begin
SGP.MouseToCell(x,y,Column,Row);
SortStringGrid(SGP, Column);
end;

(SGP ist der Name des StringGrids.)

Gruß, dopeline