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 ?