[SOLVED] Avoid dragging objects into RichMemo

[GLR]

Hi!

How can I avoid dragging objects (pictures, files etc.) into a RichMemo?
I have tried all of the events onDrag... (e.g. DragOver with option accept:=FALSE) to no avail.

GLR

[Thaddy]

Just attach all drag/drop events and implement them empty. There should be a comment or so to prevent the compiler from removing them.

[GLR]

Sorry, it does not work.

There are four:
- RichEditStartDrag
- RichEditEndDrag
- RichEditDragDrop
- RichEditDragOver

It is also strange that none of there events is triggered by a drag into the RichMemo. They are only triggered when you move the element inside the RichMemo.

[jamie]

all events here work.

I get a Drag cursor over the memo or a rejection cursor, depending on the OnDragOver is answered in the Richmemo

If you are not getting any response, then maybe you have a widget issue? I am on Windows, and it works.

The only other issue I can think of is you messed up your LFM file which happens many times if you edit the name of the component not using the OI to do so but instead manually change it in the source editor.

 You may have two being loaded, one that isn't visible with the events attached to it and the other you see.

 Checkout your LMF file.

 Jamie

[GLR]

There has to be another reason, because I can insert RichMemo in every other project I have and it is always the same behavior. (I use Lazarus 4.0, Win 11 / 64).

I suppose it is a version problem.

I have richmemopackage 1.0 (LCL 4.0.0.4, FCL 1.0.1), richmemo_design 0.0 (richmemopackage 1.0, IDEInf 1.0, FCL 1.0.1).

[jamie]

I dont know what version i have but it came from the online package manager in laz.

[GLR]

Thank you for your support.

The problem is not really vital, since when dragging into the RichMemo there are only about 3 chars or linefeeds inserted (in all cases), which are irrelevant.
The user sees that about nothing is imported.
I can handle the import via clipboard with the hasFormat command and everything which is not text is ignored.

[GLR]

I got the solution in the German Forum:

Code: Pascal  [Select][+][-]

1. implementation
2. uses ActiveX;
3.  
4. procedure TForm1.FormActivate(Sender: TObject);
5. begin
6.   RevokeDragDrop(RichMemo1.Handle);
7. end;