Hallo!
Sorry für den blöden Titel, aber mir ist nichts anderes aufgefallen...
Ich bastle mir eine eingene Komponente, einen PagingNavigator für die Datenbankabfragen. Das ganze logische Zusammenspiel der visuellen Teile und Eingenschaften habe ich bereits fertig. Nun muss ich das Wichtigste implementieren: die Kommunikation mit der Datenbank. Dafür möchte in meiner Komponente zusätzliche Eigenschaft publizieren, der einen TADOQuery zugewiesen werden soll, damit das ganze funktioniert. Dabei soll meine Komponente aber keine neue TADOQuery erstellen, sondern mit der zugewiesener
ADO-Komponente arbeiten. Die zugewiesene
ADO-Komponente muss auch nicht freigegeben werden, wenn meine Komponente gelöscht wird. Und genau hier kommt die Frage, wie ich es am besten mache. Bis jetzt habe ich keine Komponenten erstellt, den noch bestehende Komponenten als Eigenschaften zugewiesen werden mussten.
Ich versuche es so, bekomme aber die
AV, sobald ich die Eigenschaft dann im
IDE zuwesien möchte:
Delphi-Quellcode:
type
TPagingNavigator = class(TPanel)
private
FADOQuery: TADOQuery;
...
procedure SetADOQuery(const AADOQuery: TADOQuery);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
...
published
property ADOQuery: TADOQuery read FADOQuery write SetADOQuery;
...
end;
procedure TPagingNavigator.SetADOQuery(const AADOQuery: TADOQuery);
begin
FADOQuery.Assign(AADOQuery);
end;
Was mache ich falsch und wie mache ich es richtig?