Linha em que estou no Rich Edit????
como saber a linha que estou no Rich Edit, pois estou efetuando uma busca em um texto e gostaria de saber em qual linha ele esta.
Anonymous
Curtidas 0
Respostas
Lfernandos
20/02/2003
...
uses RIchEdit;
...
procedure TForm1.Button1Click(Sender: TObject);
var
CharPos: TPoint;
begin
CharPos.Y := SendMessage(RichEdit1.Handle, EM_EXLINEFROMCHAR, 0,
RichEdit1.SelStart);
CharPos.X := (RichEdit1.SelStart -
SendMessage(RichEdit1.Handle, EM_LINEINDEX, CharPos.Y, 0));
Inc(CharPos.Y);
Inc(CharPos.X);
ShowMessage(´Linha ´ + IntToStr(CharPos.Y) + ´ Coluna ´ + IntToStr(CharPos.X));
end;
uses RIchEdit;
...
procedure TForm1.Button1Click(Sender: TObject);
var
CharPos: TPoint;
begin
CharPos.Y := SendMessage(RichEdit1.Handle, EM_EXLINEFROMCHAR, 0,
RichEdit1.SelStart);
CharPos.X := (RichEdit1.SelStart -
SendMessage(RichEdit1.Handle, EM_LINEINDEX, CharPos.Y, 0));
Inc(CharPos.Y);
Inc(CharPos.X);
ShowMessage(´Linha ´ + IntToStr(CharPos.Y) + ´ Coluna ´ + IntToStr(CharPos.X));
end;
GOSTEI 0
Nildo
20/02/2003
Não precisa complicar tanto...
Linha atual:
RichEdit1.caretPos.y
Coluna atual:
RichEdit1.caretPos.x
Linha atual:
RichEdit1.caretPos.y
Coluna atual:
RichEdit1.caretPos.x
GOSTEI 0