Hier eine Übersicht über die proceduren und funktionen der
Unit U_List
Delphi-Quellcode:
type
TElement = class { Urobjekt für Listenelemente }
Next: TElement; { Nachfolger }
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 { Liste über Urtyp TElement }
private
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;
Also wie schon gesagt verwaltet diese
Unit Richedits und Buttons, die während der Laufzeit erstellt werden.
Diese Richedits liegen auf einem TabControl. Wenn man jetzt einen der erzeugten Button drückt, soll dem TabControl ein Tab hinzugefügt
werden und das entsprechende Richedit angezeigt werden. Das Problem ist jetzt nur, dass ich mit der Buttonprocedure auf das TabControl auf
der Form zugreifen muss, was halt nicht geht.
Ich hoffe das ich mein Problem genau genug beschrieben habe, damit ihr mir sagen könnt, wie ich es am besten löse.