POSIÇÃO DO CURSOR NUM CAMPO MEMO

15/05/2003

5

:?: 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


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