This should be easy: Get the top most visible point of a widget

[EganSolo]

Given an LCL widget (say TMemo), I want to find the topmost point of the memo which is visible as I scroll.

I've tried Tmemo.Top, Tmemo.ClientOrigin.Y, TMemo.ClientRect.Top, TMemo.BoundsRect.Top and it's none of those. I've googled that question and no dice.

A little nudge would be much appreciated!

 

[engkin]

As you scroll what?

Do you mean TMemo.VertScrollBar.ScrollPos?

[EganSolo]

Hi engkin,
Yes, as I scroll! Are you saying that Tmemo.VertScrollBar.ScrollPos is the value for the topmost visible line in the memo?

Wow! I thought it would be a property of the memo itself. I didn't think it would be in the scroll bar.

Thanks for the nudge! Much appreciate it!

[jamie]

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

1. procedure TForm1.Button1Click(Sender: TObject);
2. begin
3.   caption :=  Hi(Dword(SendMessage(Memo1.Handle, EM_CHARFROMPOS,0,0))).Tostring;
4. end;                                                                            
5.  

If you are in windows that will show you what line number is at the top left corner of the memo..

this is 0 based index and don't forget to add the Windows unit..