Die Datenverknüpfung initialisieren
Nach oben zu Die Datenverknüpfung hinzufügen
Ein datensensitives Steuerelement muss während seiner gesamten Lebensdauer auf seine Datenverbindung zugreifen können. Aus diesem Grund muss das Datenverknüpfungsobjekt als Teil seines untergeordneten Konstruktors aufgebaut werden. Außerdem muss, bevor das Steuerelement selbst freigegeben wird, das Datenverknüpfungsobjekt freigegeben werden.
Überschreiben Sie die Methoden Create und Destroy des Kalenders, um das Datenverknüpfungsobjekt zu erzeugen bzw. freizugeben:
type
TDBCalendar = class(TSampleCalendar)
public { Konstruktoren und Destruktoren immer als public deklarieren }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
.
.
.
end;
.
.
.
constructor TDBCalendar.Create(AOwner: TComponent);
begin
inherited Create(AOwner); { Immer zuerst den geerbten Konstruktor aufrufen }
FDataLink := TFieldDataLink.Create; { Datenverknüpfungsobjekt erzeugen }
FDataLink.Control := self; { Datenverknüpfungsobjekt über Kalender informieren }
FReadOnly := True; { Ist bereits vorhanden }
end;
destructor TDBCalendar.Destroy;
begin
FDataLink.Free; { Immer zuerst untergeordnete Objekte freigeben } }
inherited Destroy; { und danach den geerbten Destruktor aufrufen }
end;
class PACKAGE TDBCalendar : public TSampleCalendar
{
public:
virtual __fastcall TDBCalendar(TComponent* Owner);
__fastcall ~TDBCalendar();
};
__fastcall TDBCalendar::TDBCalendar(TComponent* Owner) : TSampleCalendar(Owner)
{
FReadOnly = true;
FDataLink = new TFieldDataLink();
FDataLink->Control = this;
}
__fastcall TDBCalendar::~TDBCalendar()
{
FDataLink->Control = NULL;
FDataLink->OnUpdateData = NULL;
delete FDataLink;
}
Jetzt verfügen Sie über eine vollständige Datenverknüpfung. Nun muss dem Steuerelement noch mitgeteilt werden, welche Daten aus dem verknüpften Feld gelesen werden sollen. Im nächsten Abschnitt wird dieser Punkt erläutert.