Brauche Hilfe bei Delphi Bug in nested Forms / Childforms

[cruiser]

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