Brauche Hilfe bei Delphi Bug in nested Forms / Childforms

[cruiser]

Zitat:

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

[marabu]

Hallo,

meine ChildForm stammt aus diesem Thread: klick. Die Technik hatte ich mir mal bei Steve Teixeira (Delphi4 Developer's Guide) abgeschaut. Ich habe sie für den Test mit den beiden Controls etwas verunstaltet. Ich benutze diese Form nicht zur Simulation der Docking Funktionalität. Habe ich eine Form als ChildForm erstellt, dann bleibt diese auch Zeit ihres Lebens eine solche. Abgesehen vom zweiten Konstruktor ist die ChildForm in der Handhabung identisch mit einer normalen Form.

Freundliche Grüße

[Assertor]

Hallo,

marabu, ich danke Dir!

Es geht jetzt:

Ich habe jetzt Deine ursprüngliche Variante von ChildForms aus dem anderen Thread genutzt und meine "Nested Forms" von Deinem ChildForm abgeleitet. Die Erzeugung hab ich aus dem .dpr Projektfile rausgeschmissen und in das MainForm OnCreate gepackt. Dort werden nun alle Child erzeugt. Bei Bedarf kann ich die Forms neu erzeugen (z.B. bei "Neue Datei" Action). Das OnChange-Event enthält zusätzlich Deine FormState Prüfung.

Da hast Du mir aus einem großen VCL-Schlamassel geholfen.

Wenn Du mal in Hamburg bist, geb ich Dir ein Bier aus :cheers:
(in der Annahme Du bist nicht aus Hamburg)

Freundlicher Gruß
winkel79

Edit: cruiser, Dir und allen anderen danke ich natürlich auch. Habe mich halt für marabus Lösung entschieden, weil die das, was ich möchte schafft.

:dp: