würd ich nicht so machen
Delphi-Quellcode:
procedure TFormHaupt.SGPMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Column, Row: integer;
begin
SGP.MouseToCell(x,y,Column,Row);
if (row=0) and (column<>-1) then SortStringGrid(SGP, Column);
end;
damit du nur klicks auf 1. Reihe=Spaltenüberschrift auswertest und Colums auf <>-1 testen. Sonst landest du in einer schönen
AV, wenn der User in einen Bereich klickt, wo keine Zelle ist. thatcol wird in der Sortierproc nicht überprüft, ob es in einem gültigen Bereich liegt.
Mfg Frank