HI,
kannst Du mir dazu ein paar ausführlichere Zeilen schreiben. Ich habe das mal so übernommen. Leider passiert gar nichts mehr. Der Drag-Vorgang wird gar nicht mehr gestartet. Noch habe ich die Doku dazu nicht gelesen...
Jetzt aber!
Folgendes geändert:
Delphi-Quellcode:
procedure TForm_Main.DBGrid_MasterColEnter(Sender: TObject);
begin
if (GetAsyncKeyState(VK_LBUTTON )<> 0) then
begin
DBGrid_Master.BeginDrag(false);
end;
end;
Das Funktioniert nur solange ich den linken Mousebutton noch nicht betätigt habe. Danach wird auch nach einem beliebigen Tastendruck (z.B. Navigation im DBgrid)der drag-Vorgang begonnen. Ich möchte das ja aber nur, wenn die linke Mousetaste gehalten wird. Daas Ereignis AsyncKeyState müsste also wieder auf Null gesetzt werden...?!
So geht es nocht nicht richtig. Weiß jemand etwas weiter?
Gruß,
Barnti