Mega Code Archive

 

Categories / Delphi / VCL

 

Tmemo bileseninde, imlec hangi satirda

Bir Tmemo bileseninde, imlecin hangi satirda oldugunu anlamak icin; With Memo1 do begin Line := Perform(EM_LINEFROMCHAR,SelStart, 0); Column := SelStart - Perform(EM_LINEINDEX, Line, 0); end;