StringGrid Selektion trotz Drag'n'Drop?

[rainerkunze124]

Ich benutze für meine beiden StringGrids Drag'n'Drop. Funktioniert auch wunderbar.
Nur kann ich :wall: jetzt keine Zelle mehr auswählen! Wie kriege ich es hin, trotz DragMode=dmAutomatic eine Reihe selektieren zu können? Ansonsten wäre Dragndrop ja nutzlos.

Kann mir einer helfen? :-D

[rainerkunze124]

ich hab mal herumgeschaut und gesehen, dass auch andere die Probleme haben bzw. gehabt haben, aber keine eine Lösung wusste, weil Borland das TStringGrid wohl mißentworfen hat. Jetzt meine Frage:
Gibt es eine Alternativkomponente als Ersatz fürs StringGrid?

[rainerkunze124]

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

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.