Problem mit SendMessage, RichEdit und WinNT

[Helmi]

Hallo,

ich hab folgendes Problem:

mit dem Code:

Code:

//RichEdit ganz nach unten scrollen
SendMessage(RichEdit_Infos.Handle, WM_VSCROLL, SB_BOTTOM, 0);

will ich ein RichEdit (RichEdit_Infos) ganz nach unten scrollen

Beim Testen unter WinXP funktioniert das ganze auch problemlos.

Aber wenn ich das unter WinNT ausprobiere, dann wird zwar nach
unten gescrollt, aber ich seh keine Einträge mehr.

Erst wenn ich den Scrollbalken kurz mit der Maus anklicke und
bewege sehe ich die Einträge.

Weiss jemand Rat warum das so ist und wie man das ändern kann,
dass es genau so geht wie bei WinXP?

mfg
Helmi

[gekmihesg]

probier mal
richedit1.Perform(EM_SCROLLCARET, 0, 0);

[Sprint]

Zitat von Helmi:

will ich ein RichEdit (RichEdit_Infos) ganz nach unten scrollen

Zitat von Sprint:

Wie kann ich zur ersten oder letzten Zeile in einem TMemo / TRichEdit scrollen?

Mit der Nachricht EM_LINESCROLL können wir TMemo bzw. TRichEdit anweisen Zeilen aufwärts bzw. abwärts zu scrollen.
Die aktuelle Zeilenposition können wir mit der Nachricht EM_LINEFROMCHA ermitteln. Als Parameter müssen wir die laufende Position des Cursors übergeben. Das machen wir mit TCustomMemo.SelStart.
EM_LINESCROLL wird mit der Anzahl der zu scrollenden Zeilen aufgerufen. Ein positiver Wert scrollt nach unten und ein negativer Wert nach oben.

Delphi-Quellcode:

unit Scrolling_Unit;

interface

uses
  StdCtrls, Messages, ComCtrls;

procedure ScrollToFirstLine(AMemo: TMemo); overload;
procedure ScrollToFirstLine(ARichEdit: TRichEdit); overload;
procedure ScrollToLastLine(AMemo: TMemo); overload;
procedure ScrollToLastLine(ARichEdit: TRichEdit); overload;

implementation

// -----------------------------------------------------------------------------

procedure Scroll(AObject: TCustomMemo; ToFirstLine: Boolean);
var
  CurrentLine: Integer;
  Count: Integer;
begin

  with AObject do
  begin
    CurrentLine := Perform(EM_LINEFROMCHAR, SelStart, 0);
    Inc(CurrentLine);

    if ToFirstLine then
      Count := Lines.Count - CurrentLine
    else
      Count := -Lines.Count - CurrentLine;

    Perform(EM_LINESCROLL, 0, Count);
  end; {end with}

end; {end procedure}

// -----------------------------------------------------------------------------

procedure ScrollToFirstLine(AMemo: TMemo);
begin

  Scroll(AMemo, True);

end; {end procedure}

// -----------------------------------------------------------------------------

procedure ScrollToFirstLine(ARichEdit: TRichEdit);
begin

  Scroll(ARichEdit, False);

end; {end procedure}

// -----------------------------------------------------------------------------

procedure ScrollToLastLine(AMemo: TMemo);
begin

  Scroll(AMemo, False);

end; {end procedure}

// -----------------------------------------------------------------------------

procedure ScrollToLastLine(ARichEdit: TRichEdit);
begin

  Scroll(ARichEdit, False);

end; {end procedure}

// -----------------------------------------------------------------------------

end.

Ist zwar schon zweieinhalb Jahre her, als ich das geschrieben habe. Sollte aber wohl noch funktionieren.

[Luckie]

Zitat von Helmi:

Erst wenn ich den Scrollbalken kurz mit der Maus anklicke und
bewege sehe ich die Einträge.

Weiss jemand Rat warum das so ist und wie man das ändern kann,
dass es genau so geht wie bei WinXP?

Lös mal explizit ein Repaint oder Refresh des RichEdits aus.

[Helmi]

ein refresh bringt nix - schon ausprobiert

[jfheins]

Sonst probier malPerform(WM_VSCROLL, SB_BOTTOM,0); und http://www.swissdelphicenter.ch/de/showcode.php?id=439