Drag and Drop im TDBGrid

[barnti]

Hi,

ich habe den Hinweis auf der Borland-Seite gefunden. Da ich aber einen anderen Workarround gefunden habe belasse ich es dabei. Meine Lösung:

Delphi-Quellcode:

procedure TForm_Main.DBGridColEnter(Sender: TObject);
var mousedown: Smallint;
begin
  if down then // Globale Variable, die bei der Navigation im Grid aus false gesetzt wird
    begin
      DBGrid_Master.BeginDrag(false);
    end;
  down:= true; // Rücksetzen der Variable
end;

Das OnColEnter initiiert den D&D-Vorgang, wenn das OnColEnter durch MouseKlick ausgelöst wurde. Ansonsten wird das Ereignis 'ignoriert'.

Danke für Deine Bemühungen. Es läuft jetzt erstmal. Zwar mit globaler Variable aber das ist die erste. Außerdem gibt es sicherlich noch einen anderen Weg ohne diese Variable. Später...

Gruß,

Barnti