Saber si he llegado al final de un TRichEdit al hacer scroll sobre el
 

Hola,
He visto algún ejemplo que captura el evento onScroll para TRichEdit ya que el mismo componente no trae ese evento
Lo que no he llegado a conseguir es saber si al hacer scroll sobre el RichEdit hubiera llegado o no al final del texto que contenta el RichEdit.
El objeto es que los usuarios inicien sesión en la aplicación y si no tienen aceptado el acuerdo de licencia, mostrarlo en un richedit. Hasta aquí no hay problema, pero no consigo hacer que al llegar al final del documento o texto del RichEdit se muestren las opciones Aceptar o Rechazar que serian dos botones para hacer lo propio con la licencia y dejar así al usuario entrar en la aplicación o no
Ahora los botones se muestran siempre y el usuario puede o no aceptar, pero con esto no me aseguro de que el usuario hubiera recorrido todo el texto del RichEdit.
Si es cierto que puede llegar al final y no haber leído nada, pero me gusta mas hacerlo así; creo que le da un resultado mas profesional
Espero que podáis ayudarme
Gracias

Hola jsc.
Si, eso es lo primero que pensé :)... igual te pongo un ejemplo de una de las formas en que podrías implementarlo:

Código Delphi [-]
...
type
  TForm1 = class( TForm )
    RichEdit1: TRichEdit;
    Button1: TButton;
    procedure FormCreate( Sender: TObject );  
    procedure RichEdit1KeyDown( Sender: TObject; var Key: Word;Shift: TShiftState );
    procedure FormDestroy( Sender: TObject );
  private
    FOldWndProc : TWndMethod;
    procedure FNewWndProc( var Message: TMessage );
    procedure ReachedEnd( const Reach: Boolean );
  public
  end;

var
  Form1: TForm1;

implementation 

procedure TForm1.FormCreate( Sender: TObject );
begin
  RichEdit1.Lines.LoadFromFile('SomeFile.rtf');
  FOldWndProc := RichEdit1.WindowProc;
  RichEdit1.WindowProc := FNewWndProc;
end;

procedure TForm1.ReachedEnd(const Reach: Boolean);
const
  FLAGS =  MB_ICONQUESTION or MB_YESNO; 
  CMSG  = '¿ Seguro que comprende el texto ?';
begin
  if not Reach then
    Exit;
  if MessageBox( Handle,PChar(CMSG), '', FLAGS ) = IDNO then
    Application.Terminate;
  {
   ...
   ...
  }
end;

procedure TForm1.FNewWndProc( var Message: TMessage );
var
  sPos: Integer;
  sInfo: TScrollInfo;
begin
  if Message.Msg = WM_VSCROLL then
  begin
    sInfo.cbSize  := SizeOf( TScrollInfo );
    sInfo.fMask   := SIF_ALL;
    GetScrollInfo( RichEdit1.Handle, SB_VERT, sInfo );
    sPos := GetScrollPos( RichEdit1.Handle, SB_VERT );
    ReachedEnd( ( sInfo.nMax = sInfo.Npage + sPos ) );
  end;
  FOldWndProc(Message);
end;

procedure TForm1.RichEdit1KeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
var
  RE : TRichEdit;
  Row: Integer;
begin
  if ( Key in [ VK_DOWN, VK_NEXT ] ) then
  begin
    RE  := TRichEdit( Sender );
    Row := RE.Perform( EM_LINEFROMCHAR, RE.SelStart, 0 );
    ReachedEnd( ( Row = RE.Lines.Count - 1 ) );
  end;
end;

procedure TForm1.FormDestroy( Sender: TObjec t);
begin
  RichEdit1.WindowProc := FOldWndProc;
end;

end.

Saludos :)

gracias por responder ecfisa

realmente es lo que buscaba

gracias y saludos