Para pegar a linha e coluna de um Memo utilize o seguinte código:
var
Linha, Coluna: integer;
begin
with Memo1 do
begin
Linha := Perform(EM_LINEFROMCHAR,SelStart, 0);
Label1.Caption := IntToStr(Linha);
Coluna := SelStart - Perform(EM_LINEINDEX, Linha, 0);
Label2.Caption := IntToStr(Coluna);
end;
end;
Rode a aplicação e veja o resultado na Figura. Lembre-se que a linha começa por “0”.
Luciano Pimenta®
Editor Web do Portal ClubeDelphi.NET
