TRichEdit und scrollen

[Schwedenbitter]

Hallo,

das Thema mit dem Scrollen in einem TRichEdit wurde im Forum schon mehrfach behandelt. Dennoch stehe ich vor einem Problem, dass ich bislang nicht lösen konnte:

Ich habe auf meinem Form ein TRichEdit. Für dieses ist

Delphi-Quellcode:

Anchors:=[akLeft, akRight, akTop, akBottom];

gesetz. Wenn ich mein Form Maximiere, dann vergrößert sich entsprechend auch das TRichEdit. Weiterhin wird der Text nicht vom Benutzer, sondern ausschließlich vom Programm hinzugefügt und danach immer auf die letzte Zeile gescrollt.

Bin ich auf der letzten Zeile und maximiere das Fenster ist alles OK. Wenn ich es dann aber wieder minimiere, dann steht der Text irgendwo und ich bin eben nicht mehr auf der letzten Zeile. Ich habe jetzt versucht, das Problem so zu lösen:

Delphi-Quellcode:

Procedure TChat.WMSysCommand(Var Msg: TMessage);
Begin
  Case Msg.WParam Of
    SC_Minimize   : Hide;                                // Minimieren-Button
    SC_Maximize   : Begin
                    WindowState:=wsMaximized;
                    Log.Perform(EM_SCROLLCARET, 0, 0); // auf letzte Zeile scrollen
//                  SendMessage(Log.Handle,            // Auf letzte Zeile scrollen
//                    WM_VScroll, SB_Bottom, 0);
                  End;
    SC_Close   :  Hide;                                // Schließen-Button
  Else                                                 // alles andere
    Inherited;                                         // Botschafen durchleiten
  End;
End;

Beide Methoden, mit denen ich sonst immer den Text an das Ende scrolle, versagen hier. Was mache ich verkehrt?

Gruß, Alex

[s.h.a.r.k]

Hast du nicht was vergessen? :zwinker:

[Schwedenbitter]

Zitat:

Zitat von s.h.a.r.k

Hast du nicht was vergessen? :zwinker:

Ja! Siehe oben. Ich hatte das erste Mal zu zeitig auf Enter gedrückt.

Alles in allem ein Schnellschuß: Nachdem ich nun ca. 3 h über das Problem grüble, kam mir beim schreiben der Frage und Umformatieren des Codes die Idee - So scheint es zu klappen:

Delphi-Quellcode:

...
    SC_Maximize,
    SC_Restore : Begin
                   Inherited;
                   Log.Perform(EM_SCROLLCARET, 0, 0);// auf letzte Zeile scrollen
                 End;
...

Spricht etwas gegen Inherited?

Gruß, Alex

[s.h.a.r.k]

Was passiert, wenn du das OnResize-Event des Formulars nutzt? Ich denke, dass es ein Problem der Reihenfolge der Ausführen ist, d.h. dass du zuerst scrollst und dann die Komponente weiß, dass Sie kleiner geworden ist.

[Schwedenbitter]

Danke für den Tip!

Ich Dummkopft bin immer von den 3 Buttons oben ausgegangen und damit nicht auf die Idee gekommen, dass es beim Unmaximieren zwar augenscheinlich derselbe Button ist. Es ist aber eine andere Message.

Zitat:

Zitat von Schwedenbitter

Spricht etwas gegen Inherited?

oder muss/sollte ich dann besser wsNormal benutzen? Warum merkt sich das TRichEdit das eigentlich nicht?

Gruß, Alex