Hola
gaz-g7, Bienvenido al ClubDelphi.
Primera recomendación es que leas la
Guía de estilo.
En cuanto a tu consulta vamos si esto te sirve.....
Código Delphi
[-]
procedure TForm1.Memo1Click(Sender: TObject);
var
Coordenada: TPoint;
begin
Coordenada := Memo1.Caretpos;
Caption := 'Coordenada X=' + IntToStr(Coordenada.x) + ' Coordenada Y=' + IntToStr(Coordenada.Y + 1);
end;
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Memo1Click(Sender)
end;
De este modo controlas la posición tanto cuando se pulsa una tecla o cuando se posiciona con el ratón.
Si ademas quieres ofrecer otra información adicional, te recomiendo que eches un vistazo a
este hilo que hace tiempo tratamos....
Saludos.