Eigener Komponente eine andere Komponente zuweisen???

[romber]

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?

[nahpets]

Hallo,

hast Du das schon mal ohne den Setter probiert?

Delphi-Quellcode:

type 
  TPagingNavigator = class(TPanel) 
  private 
    FADOQuery: TADOQuery; 
    ... 
  public 
    constructor Create(AOwner: TComponent); override; 
    destructor Destroy; override; 
    ... 
  published 
    property ADOQuery: TADOQuery read FADOQuery write FADOQuery; 
    ... 
end;

Habe vor längerer Zeit mal ähnliches mit der Zuweisung anderer Komponenten realisiert, das ging immer ohne den Setter.

[mleyen]

Bzw. den Setter umschreiben.

Delphi-Quellcode:

procedure TPagingNavigator.SetADOQuery(const AADOQuery: TADOQuery); 
begin 
  FADOQuery := AADOQuery;
end;

Bei assign() musst du intern schon selber eine TADOQuery instanziert haben.

[romber]

Danke! Es geht!

[Muetze1]

Und unbedingt dran denken die Methode Notification() zu überschreiben und beim opRemove auf die gemerkte Referenz diese auf NIL setzen, sonst greift man tief in die Gülle...

[romber]

Zitat von Muetze1:

Und unbedingt dran denken die Methode Notification() zu überschreiben und beim opRemove auf die gemerkte Referenz diese auf NIL setzen, sonst greift man tief in die Gülle...

Das habe ich jetzt nicht verstanden. Wie mache ich das?

[Muetze1]

Zitat von romber:

Zitat von Muetze1:

Und unbedingt dran denken die Methode Notification() zu überschreiben und beim opRemove auf die gemerkte Referenz diese auf NIL setzen, sonst greift man tief in die Gülle...

Das habe ich jetzt nicht verstanden. :gruebel: Wie mache ich das?

Delphi-Quellcode:

...
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
...

procedure TPagingNavigator.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
 
  if ( Operation = opRemove ) and ( FADOQuery = AComponent ) then
    FADOQuery := nil;
end;

[romber]

Jo, danke!
Aber wofür ist das gut?

[SirThornberry]

Das für folgende Situation gut:
- Du hast deiner Komponente die andere zugewiesen
- Wenn du jetzt die andere frei gibst (vom Formular gelöscht wird im Designer) bekommt deine Komponente das ja nicht mit im Normalfall
- Und da kommt diese Notification zum Einsatz denn dadurch wirst du benachrichtig das eben eine Komponente entfernt wird

[romber]

Alles klar! Vielen Dank!