Foros Club Delphi - Ver Mensaje Individual - No me funciona RichEdit1.Perform(EM_SCROLLCARET, 0, 0);

danielcordovahe · #3 27-04-2006

Estoy tambien utilizando:

Código Delphi [-]Encontradoen := REHub1.FindText('->', InicioBusquedaTel1, length(REHub1.Text)-InicioBusquedaTel1, [stMatchCase]);
  if Encontradoen <> -1 then
  begin
    REHub1.SelStart := Encontradoen-15;
    REHub1.SelLength := length(REHub1.Lines.Strings[SendMessage(REHub1.Handle, EM_EXLINEFROMCHAR, 0,REHub1.SelStart)]);
    REHub1.SelAttributes.Color:=clgreen; REHub1.SelAttributes.Style:=[fsbold];
    LCPEs.Caption:=REHub1.SelText;
    REHosts.Lines.Insert(REHosts.Lines.Count,REHub1.SelText);
    InicioBusquedaTel1:=Encontradoen+1;
    Contador:=Contador+1;
  end

y para que me funcione la palabra reservada: EM_EXLINEFROMCHAR necesito utilizar la Libreria RichEdit (Uses RichEdit

.

Al hacer eso me deja de trabajar el comando: REHub1.Perform(EM_SCROLLCARET, 0, 0);