.NET (2)
Database (71)
Delphi IDE (90)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Exchange Links
About this site
| |
 |
Access the current row/column of a TMemo
1 comments. Current rating: 
(1 votes). Leave comments and/ or rate it.
The following code reads and writes the cursor's position as row and column; counting starts at 0.
(To scroll to the cursor position, also read this tip:
Have a TMemo/ TRichEdit scroll to the cursor position.)
 |  | |
procedure GetMemoRowCol (M : TMemo; var Row, Col : LongInt);
begin
Row := SendMessage(M.Handle, EM_LINEFROMCHAR, M.SelStart, 0);
Col := M.SelStart-SendMessage(M.Handle, EM_LINEINDEX, Row, 0);
end;
procedure SetMemoRowCol(M : TMemo; Row, Col : Integer);
begin
M.SelStart := SendMessage(M.Handle, EM_LINEINDEX, Row, 0)
+ Col;
end; | ||
 |  |
Comments:
| ||
|
Esta dica me ajudou muito quando eu precisava posicionar o cursor em uma determinada linha...
Muito boa. |