Zitat von
winkel79:
Gibt es einen Ersatz mit einem Memo, welches automatisch verschwindende Scrollbars hat (nur dafür brauch ich die RichEdits)?
Eventuell hast du's ja schon gelöst. Wenn nicht hilft vielleicht das weiter (Wenn du wirklich nur ein TMemo bräuchtest)
Delphi-Quellcode:
procedure MemoScroll(memo: TMemo);
var
rows: Integer;
dc: hdc;
tm: TTextMetric;
begin
// Texthoehe errechnen
DC := GetDC(0);
SelectObject(
DC, Memo.Font.Handle);
GetTextMetrics(
DC, tm);
ReleaseDC(0,
DC);
// maximal anzeigbare Zeilen
rows := Memo.ClientHeight
div tm.tmHeight;
// Korrektur nach zeilenumbruch
if Length(Memo.Text) > 0
then
if Ord(Memo.Text[Length(Memo.Text)]) = 10
then
Dec(rows);
// umschalten der Scrollbars
if Memo.Lines.Count > rows
then
Memo.ScrollBars := ssVertical
else
Memo.ScrollBars := ssNone;
end;
greetingz