Sichtbaren Bereich im RichEdit-Feld abfragen?

[sniper_w]

Versuch es so...
HINWEIS !! Nur wenn du es(Scrolbar) mit dem Mause direkt anklickst und bewegst dann wird auch ein ensprechendes Ereignis aufgerufen. Wenn du es mit dem MouseWheel "scrollst" dann ist das ein ganz anderes Ereignis...

Um mein Beispiel zu benutzen brauchst du ein TRichEdit mit Text (alles im Design modus gemacht), und
2 TLabel-s

Delphi-Quellcode:

type
 TMyRichEdit = class(TRichedit)
 private
    procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
 end;

  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    a:TMyRichEdit;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMyRichEdit.WMHScroll(var Message: TWMHScroll);
begin
 Form1.Label1.Caption :='Horizontal scroll ist im gange'+inttostr(random(100));
 inherited;
end;

procedure TMyRichEdit.WMVScroll(var Message: TWMVScroll);
begin
 Form1.Label2.Caption :='Vertical scroll ist im gange'+inttostr(random(100));
 inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
 a := TMyRichEdit.Create(self);
 with a do
 begin
 Parent := Self;
 Visible := true;
 Width := 100;
 Height :=100;
 Left := 20;
 Lines.Assign(RichEdit1.Lines);
 ScrollBars := ssBoth;
 WordWrap := False;
 end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 a.Free;
end;