POSIÇÃO DO CURSOR NUM CAMPO MEMO
15/05/2003
0
:?: Num campo texto do tipo RichEdit (Tipo Editor de Texto), preciso escrever na tela a posição do cursor. Exemplo:
Linha: 12 de 82
Página: 3 de 4
Como posso fazer isso?
Obrigado.
Neto
Linha: 12 de 82
Página: 3 de 4
Como posso fazer isso?
Obrigado.
Neto
Neto
Curtir tópico
+ 0
Responder
Posts
15/05/2003
Aroldo Zanela
var Linha, Coluna: Integer;
begin
With RichEdit1 do
begin
Linha := Perform(EM_LINEFROMCHAR,SelStart, 0);
Coluna := SelStart - Perform(EM_LINEINDEX, Linha, 0);
end;
StatusBar1.Panels[0].Text := IntToStr(Linha+1);
StatusBar1.Panels[1].Text := IntToStr(Coluna);
end;
Responder
16/10/2014
Leonam Lima
Não funcionou comigo como posso ta fazendo ? e Aonde posso coloca esse codigo em qual evento , Obrigado !
Responder
Clique aqui para fazer login e interagir na Comunidade :)
