Como mover o cursor em um TRichEdit (Delphi)

Question

Estou tentando implementar um procedimento que voc&ecirc; informa o n&uacute;mero da linha e coluna e o cursor vai diretamente para aquela posi&ccedil;&atilde;o, mas n&atilde;o estou conseguindo.
Tentei com o SelStart, pois no help informa que se n&atilde;o houver nenhum texto selecionado voc&ecirc; pode seta-lo para posicionar o cursor onde deseja mas n&atilde;o funcionou... E isso s&oacute; serviria para a coluna, como ir para determinada linha?

Answer

Descobri como mostrar a linha e coluna em que o cursor est&aacute;:


procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  Var LPos, CPos, LineLength: Integer;
begin
Lpos := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
Cpos := SendMessage(memo1.Handle,EM_LINEINDEX,Lpos,0);
LineLength := SendMessage(memo1.handle, EM_LINELENGTH, Cpos, 0);
CPos := Memo1.SelStart-CPos;
Label1.Caption := 'Linha  '+intToStr(LPos);
Label2.Caption := 'Coluna '+intToStr(CPos);
Label3.Caption := 'N&ordm; car.'+intToStr(LineLength);

end;

Mas como fazer para que o cursor v&aacute; para determinado ponto?

Ferramentas

Mover Tópico