No me funciona RichEdit1.Perform(EM_SCROLLCARET, 0, 0);

[danielcordovahe]

Buenas Tardes Foro, espero me puedan ayudar con este pequeño problema.
Me habia estado funcionando muy bien el codigo:
REHub1.Perform(EM_SCROLLCARET, 0, 0); que lo usaba para irme y me muestre la ultima linea del Richedit agregada. Pero tube necesidad de usar la libreria "RichEdit" y ahora no me hace el posicionamiento como lo hacia antes.

Si alguien me dijera el porque y como solucionarlo se lo agradeceria.

[vtdeleon]

Saludos

Pero tube necesidad de usar la libreria "RichEdit"...

Esto no lo entiendo. Danos un poco mas de detalle.

[danielcordovahe]

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);

[Neftali [Germán.Estévez]]

Puede ser porque esa constante está definida diferente en ambos sitios;
(1) Probaría a añadir a la constante la unit delante.

Código Delphi [-]
  ...  .Perform(Messages.EM_SCROLLCARET, 0, 0 );

(2) La otra opción que se me ocurre es que definas una constante privada cn el valor correcto (feo, así que intenta primero la anterior).

Código Delphi [-]
const
  MY_EM_SCROLLCARET = $00B7;
...
 .Perform(MY_EM_SCROLLCARET, 0, 0 );