Klick auf Kopfzeile von StringGrid -> sortieren lassen

[BrunoT]

Hi Alex,

Google hilft dir:

Stringgrid sortieren

du musst nur noch ermitteln, welche Spalte im Kopf angecklickt wurde:

Delphi-Quellcode:

Var
 Spalte:Integer;

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
  i,breite:Integer;
begin
if y<=StringGrid1.RowHeights[0] then
begin
  breite:=0;
  For i:=0 To StringGrid1.ColCount-1 Do
  Begin
    breite:=breite+StringGrid1.ColWidths[i];
    if breite>x Then
    Begin
      spalte:=i;
      Break;
    end;
  end;
   Label1.Caption:=IntToStr(Spalte);
   // Hier Soriter-algo
end;
end;

mfg

BrunoT