Drag & Drop im Edit erkennen und farbig markieren

[Helmi]

Hallo,

ich verwende diesen Code um Dateinamen via Drag & Drop aus dem Explorer in ein Edit zu bekommen.

Nun würd ich gerne, wenn die Maus über dem Edit ist, dass Drag & Drop erlaubt, dieses Edit farbig markieren.

Nur wie kann ich feststellen ob Drag & Drop im Edit aktiv ist und nur in diesem Falle es farbig markieren?
(Die Markierung sollte natürlich wieder zurück gesetzt werden, wenn das Dragen zu ende ist)

Ich hab schon: OnStartDrag, OnEndDrag, OnDragDrop, OnDragOver ausprobiert - aber kein Ereignis wird ausgelöst

[stahli]

Du könntest evtl. in MouseEnter und MouseExit auf DragControl prüfen...

[Helmi]

Zitat von stahli:

Du könntest evtl. in MouseEnter und MouseExit auf DragControl prüfen...

Hättest du vielleicht ein Beispiel dafür?

[stahli]

Nein sorry.
Habe es gerade mal probiert, das funktioniert so leider doch nicht

[Helmi]

Ich hab schon überlegt den Cursor im OnMouseMove abzufragen, aber leider funktioniert das auch nicht.
Der Screen.Cursor scheint nicht verändert zu werden, wenn Explorer-Drag & Drop aktiv ist

Habs so probiert:

Delphi-Quellcode:

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If Screen.Cursor <> crDefault then
    Edit1.Color := clRed
  else
    Edit1.Color := clBlue;
end;

[himitsu]

Du könntest im OnEnter mit GetAsyncKeyState prüfen, ob die linke Maustaste gedrückt ist
und wenn gleichzeitig gewisse Datenformate im Zwischenspeicher sind, dann könntest du zu relativ großer Wahrscheinlichkeit davon ausgehn, daß es sich um Drag&Drop handelt.

Was genau sich im Zwischenspeicher befindet, müßtest'e aber nochmal nachsehn.
Ich glaub das waren zwei verschiedene Dinge, welche sich dabei immer darin befinden.


Kann aber sein, daß du kein OnEnter/OnMouseMove bekommst, da der sich Eingabefokus, wärend des Clicks+Drags, noch beim Explorer befindet.