[Solved] How to get caretpos for RIGHT clicks

[bobonwhidbey]

CaretPos for TMemo and tRichMemo, perhaps all other TCustomEdit descendants, provides the x & y positions on left mouse clicks but not for right mouse clicks. Is there a way to get the x & y caret position for a right click?

[jamie]

My OnMouseUp fires for any button on the mouse and the X,Y are reported the same..

maybe you have other code in the way prevented it?

[bobonwhidbey]

In the OnMouseUp event i am getting the X/Y positions for the last left mouse click, not the position for the right mouse click. This is in a RichMemo, but same problem in TMemo.

[jamie]

something has to be wrong with your setup..

 I just checked here on WIn10 Laz32..

 I can do a mouse up with left click, move the mouse to another location and do right click etc
and it all reports correctly..

 Where ever the mouse is when I release the right or left mouse button, it reports the current location of the cursor.

 Maybe we aren't doing about the same thing here ?

 Cursor and Caret are two different things..

 X,Y = Cursor location, the little blinker for editing is the caret..

[bobonwhidbey]

I think I see my problem, but I don't see the solution. When you left click on a Memo, the caretpos is the same as the cursor position. When you right click on a Memo, the caretpos remains unchanged, so the caret and the cursor are in different positions.

How do I determine which line I've RIGHT clicked on in a Memo?

[balazsszekely]

How do I determine which line I've RIGHT clicked on in a Memo?

See attached project(windows only).

[Thaddy]

@Getmem: that's platform dependent. It works on windows only afaik.
@bobonwhidbey:
You just lost functionality that a user might expect. A right-click usually is for something like popup-menu's or other information and should leave the caret alone.
It should not touch the caret position for a Tmemo, because it is an edittable control and needs to satisfy conventions. A left-click should. (or a single-button mouse double-click!)

Do you have a good reason for the loss of such possible functionality? Usually this kind of functionality is solved by a double left-click and then a right-click. e.g. select a word, spell-check.
If you have, I think I have a solution that is cross-platform.

[balazsszekely]

@Thaddy

@Getmem: that's platform dependent. It works on windows only afaik.

You should read my previous post more carefully.

[Thaddy]

I am bit bit cross-platform oriented... I didn't miss it.

[balazsszekely]

I am bit bit cross-platform oriented... I didn't miss it.

It's doable on other platforms too, but you need a lot more work. I'm kinda lazy now + I saw "Win10 64-bit / Lazarus 1.8.0RC4 / FPC 3.0.4 - 32bit" in OP's signature.

[bobonwhidbey]

GetMem's example worked perfectly - and was exactly what I was looking for when using a TMemo. However, when I try to apply that approach on a TRichMemo, I get the dreaded External SIGSEGV" error.

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

1.     CharPos := SendMessage(RichMemo1.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y));

I had no problem independently defining the Handle or the MakeLParm; i.e.
var 
  H: HWND; 
  P : LPARAM

H := RichMemo1.Handle;
P := MakeLParam(X, Y)

Any idea why the SendMessage crashes?

[balazsszekely]

Please try attached project.

[bobonwhidbey]

Thank you GetMem.