StringGrid Selektion trotz Drag'n'Drop?

[rainerkunze124]

Hab die Lösung gefunden, war simpel, man muss nur drauf kommen

Man kann das TStringGrid ruhig auf DragMode=DmAutomatic lassen. Einfach in das OnMouseDown-Ereignis folgendes schreiben:

Delphi-Quellcode:

var
  acol, arow : integer;
begin
  with TStringGrid(Sender) do
  begin
    MouseToCell(x,y,acol,arow);
    Col:=acol;
    Row:=arow;
  end;
end;

Dann wird einfach die Zelle selektiert, über der man gerade war.