Hi,

Wie kann man automatisch eine Scrollbar in einem Memo erzeugen, wenn alle sichbaren Zeilen vollgeschrieben sind? Und wenn es möglich ist das man dann auch noch mit der Maus scrollen kann, obwohl es kein Onmousewhelldown/up gibt?
Wäre nett wenn mir jemand helfen könnte.

Hai Delphi-Noobie,

bei einem Memo kannst Du nur einstellen ob die Scrollbar immer zu sehen ist oder überhaupt nicht.
Meiner meinung nach ist das auch besser so. Sonst würde sich ja der Bereich in dem ich etwas schreiben kann verschmalern sobald die Scrollbar "plötzlich" angezeigt wird.

Achja, mit der Maus zu scrollen funktioniert, bei mir, ohne Probleme.

OK danke aber kann man auch einstellen, wenn keine Scrollbar da ist, man trotzdem mit den Mausrad scrollen kann?

Ich wollte auch die Scrollbar meiner TMemo automatisch ein-/ausblenden und habe mir dazu folgenden Code überlegt:

markieren

Delphi-Quellcode:

 if Memo1.Height <= (Memo1.Lines.Count+2) * abs(Memo1.Font.Height) then
    Memo1.ScrollBars := ssVertical else
    Memo1.ScrollBars := ssNone;

Anmerkungen:
Die +2 bei Memo.Lines.Count sollte in der Bedingung stehen, weil sonst die Scrollbar meist schon ausgeblendet wird, wenn die Memo noch zu klein ist.
abs(Font.Height) muss sein, da der Wert Height ja komischer Weise immer negatib ist. (Warum eigentlich?? )

Möge dieser Code den erleuchten, der in Zukunft noch darüber stolpert