[GELOEST] Kann Drag in ein RichMemo nicht unterbinden

[GLR]

Hallo!

Vorweg, es ist nicht so wichtig, weil es auch so geht.

Im englischen Forum konnte man mir nicht helfen, so probiere ich es einfach mal hier:

Es gibt 4 Ereignisse, die bei Drag/Hineinziehen von außen in ein RichMemo getriggert werden sollten.
- RichEditStartDrag
- RichEditEndDrag
- RichEditDragDrop
- RichEditDragOver
Aber bei mir wird nichts davon durch das Hineinziehen aktiviert. So kann ich das Drag ins Memo dann auch nicht unterbinden. (Ist bei mir wertlos, weil die Icons im Memo keinen Sinn machen.)

Hat jemand dazu eine Idee?

(Ich habe Laz 4.0, Win 11 mit 64 Bit und das aktuelle Richmemo-Package.)

Grüße
GLR

[Soner]

Die Drap&Drop Events, OnStartDrag, OnEndDrag, OnDragDrop, OnDragOver hat damit nicht zu tun. Die sind LCL-Intern.
RichMemo ist die Kapselung von der RichEdit-Komponente von Windows. Ich denke, dass du WndProc-Funktion von RichMemo einklicken musst und dort es verhindern musst, falls es überhaupt möglich ist.
Ich würde im Internet nach "delphi richedit drag drop unterbinden" suchen oder auf englisch.

Vielleicht RichMemo.ReadOnly auf true setzen.

[Soner]

Hier ich habe gefunden, du musst einfach das machen:

Code: Alles auswählen

...
implementation
uses ActiveX;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RevokeDragDrop(RichMemo1.Handle);
end;

getestet, funktioniert.

[GLR]

Vielen herzlichen Dank. Es klappt!

Mit der einzigen Änderung:
Ich muß die Zeile unter FormActivate eintragen; bei FormCreate klappt es nicht.

Damit hat das "deutsche Forum" das "englischsprachige" klar geschlagen; dort konnten mir User mit in der Summe über 20.000 Posts nicht die Lösung aufzeigen (https://forum.lazarus.freepascal.org/in ... #msg565801)

Liebe Grüße
GLR