Delphi-Quellcode:
type
TElement = class { Urobjekt für Listenelemente }
Next: TElement; { Nachfolger }
Constructor Create(); { Setzt Next auf Nil }
end;
TChat = class(TElement)
R : TJvRichEdit;
B : TJvTransparentButton;
Name : String;
Constructor Create(N : String; Owner, Owner2 : TComponent; Anzahl : Integer); { Konstruktor wird verändert }
Procedure UserButton(Sender: TObject);
end;
TLinList = class(TObject) { Liste über Urtyp TElement }
private
Tabc : TJvgTabControl;
public
sAnfang, sAktuell: TElement; { "Zeiger" auf erstes/ }
{ aktuelles Element }
constructor create; { setzt Kopf/Fuss auf NIL }
destructor destroy; override; { löscht alle vorh. Elemente }
{ Navigationsroutinen }
procedure vor; { Aktuell einen weiter bewegen }
procedure zurueck; { Aktuell einen zurück bewegen }
procedure zumAnfang; { Aktuell an den Anfang }
procedure zumEnde; { Aktuell an das Ende }
{ Datensatzoperationen }
procedure EinfuegenVor(e: TElement); { Datensatz vor Aktuell einf. }
procedure EinfuegenNach(e: TElement); { Datensatz nach Aktuell einf. }
procedure Loeschen; { Aktuellen Datensatz loeschen }
{ Informationsroutinen }
function Anzahl: integer; { Anzahl der Datensätze }
function amEnde: boolean; { Aktuell am Ende? }
function amAnfang: boolean; { Aktuell am Anfang? }
function Leer: boolean; { Anzahl = 0? }
function Aktuell: TElement; { Aktuelles Element ausgeben }
function Index: integer; { Nr. des Aktuellen Elements }
End;
Ich hab TElement verändert, TChat hinzugefügt und bei TLinList unter private das "Tabc : TJvgTabControl;" eingefügt.
Nur das Problem ist, dass die Liste Die Elemente vom Typ TElement verwaltet und TElement den Typ TLinList nicht kennt und folglich nicht von der Procedure UserButton auf TabC zugreifen kann. Wenn ich "Tabc : TJvgTabControl;" jetzt bei TChat einfüge, dann hat jedes Element ein eigenes TabControl und nicht alle zusammen eins. Kann ich dem Typ TChat nicht einfach einen Zeiger auf das tabControl mitgeben, damit ich von dort aus
ein Tab hinzufügen kann?