Thema: Delphi Drag and Drop im TDBGrid

Einzelnen Beitrag anzeigen

barnti

Registriert seit: 15. Aug 2003
Ort: Mal hier mal da...
689 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Drag and Drop im TDBGrid

  Alt 3. Mär 2004, 14:58
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
  Mit Zitat antworten Zitat