Eigenes TMemo

[Amateurprofi]

Ich möchte ein Memo und eine Listbox nebeneinander anzeigen.
In der Listbox will ich Daten zeigen, die auf dem Inhalt der Memo-Zeilen basieren.
Zusätzlich möchte ich, für die Listbox und das Memo unterschiedliche Schriftgrößen haben können.
Um sicherzustellen, daß die Listbox-Zeilen in der gleiche Höhe liegen, wie die der Memo-Zeilen, müssen die Zeilen des Memos die gleiche Höhe haben wie die der Listbox.
In der Listbox ist das mit ItemHeigth zu regeln.
Im Memo wird (wenn ich das richtig sehe) die Zeilenhöhe in der Prozedur AdjustHeight (von TCustomEdit) eingestellt.

Ich möchte nun so vorgehen :

Ein eigenes TCustomEdit von TCustomEdit ableiten und von diesem wiederum ein eigenes TCustomMemo ableiten, das im Prinzip identisch mit dem TCustomMemo aus StdCtrls sein soll.

Bis jetzt hab ich folgendes

Delphi-Quellcode:

unit Unit1;

interface

uses Classes, StdCtrls;

Type
   TxCustomEdit=Class(TCustomEdit)
   Private
      procedure AdjustHeight; override;  // Zeile 10
   protected
   public
      constructor Create(AOwner: TComponent); override;
   end;

implementation

constructor TxCustomEdit.Create(AOwner: TComponent);
begin
   inherited
end;

PROCEDURE TxCustomEdit.AdjustHeight;
begin
   inherited;
   Heigth:=Height+3;
end;

end.

Und gleich am Anfang laufe ich "auf den Schrubber"

[Fehler] Unit1.pas(10): E2137 Methode 'AdjustHeight' nicht in Basisklasse gefunden.

Jetzt frage ich mich warum AdjustHeight nicht in der Basisklasse (TCustomEdit) gefunden wird, obwohl sie darin enthalten ist.

Was mache ich falsch ? Und : Weiß jemand eine simplere Möglichkeit, die Zeilenhöhe eines TMemo einzustellen ?

[Nuclear-Ping]

Ist AdjustHeight in der Basisklasse implementiert oder nur eine abstrakte Funktion? Vielleicht ist AdjustHeight im protected deklariert? Versuchs mal ohne "override", aber mit "inherited" in der Implementierung.

[xZise]

Naja, dein Problem ist, dass Geerbte Klassen keine privaten Deklarationen erben können

MfG
xZise

[Nuclear-Ping]

Galt das nicht für protected?

[mkinzler]

Dann lass das inherited weg, weil dies bewirkt das eine gleichnamige Methode der Superklasse aufgerufen wird, welche nicht existiert!

[mkinzler]

Zitat von Nuclear-Ping:

Galt das nicht für protected?

aws für protected gilt, gilt erst recht für private!

[xZise]

Zitat von mkinzler:

Zitat von Nuclear-Ping:

Galt das nicht für protected?

aws für protected gilt, gilt erst recht für private!

Jup:
private: Nur Unit & Klasse
protected: private + "Kinder"

Ich habe ein bisschen im Code geguckt: Adjust wird durch UpdatHeight aufgerufen, aber das wird auch nicht so direkt aufgerufen