How to get the current line and column from a Memo

~~~~~~~~~~~~~~~~~~~~~~~~~
var Line, Column : integer;

With Memo1 do begin
   Line := Perform(EM_LINEFROMCHAR,SelStart, 0) ;
   Column := SelStart - Perform(EM_LINEINDEX, Line, 0) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» Controling DLL loading
« How to retrieve control identifiers for all the controls on a common dialog.

• 1
• 2
• 3
• 4
• 5