Objekt als Komponenteneigenschaft

[blablab]

Hallo!

Ich entwickel zur Zeit eine Komponente "SelDir" mit der man einen Ordner von der Festplatte auswählen kann. Jetzt möchte ich zu dieser Komponente eine neue Komponente "SelDirDialog" machen, die aus einem Fenster mit einer "SelDir" Komponente, einem OK- und Abbrechen-Knopf besteht. Das ganze sollte dann eine nicht-visuelle Komponente mit einer Execute-methode werden, wie die Dialog-Komponenten von Delphi.
Mein Problem ist nun, dass alle Optionen des Dialogs eigentlich schon in der "SelDir"-Komponente stecken. Zum Beispiel der ausgewählte Pfad ist eine Eigenschaft von "SelDir". Um darauf zugreifen zu können müsste ich also der "SelDirDialog"-Komponente eine Eigenschaft Pfad geben, die dann den Pfad von der "SelDir"-Komponente zurückgibt. Ich müsste also letztendlich fast alle Eigenschaften von "SelDir" in "SelDirDialog" reinkopieren.

Um das zu verhindern hab ich mir überlegt ich mach in "SelDirDialog" folgende Eigenschaft:

Delphi-Quellcode:

   published
      property SelDir: TSelDir read FSelDir;

Das Problem ist jetzt nur, dass die im Objektinspektor eingestellten Eigenschaften von SelDir keine Wirkung haben. Wenn ich die Komponente "SelDirDialog" zur Entwicklungszeit in mein Formular ziehe wird Create aufgerufen und eine "SelDir"-Komponente erzeugt. Sobald das Programm gestartet wird, passiert das gleiche nochmal und die "SelDir"-Komponente hat wieder Standardeinstellungen.

Ich steh wirklich aufm Schlauch und komm hier einfach nicht weiter. Alle Eigenschaften kopieren möchte ich wenns geht nicht, denn sobald ich eine Eigenschaft der "SelDir"-Komponente änder (die sich ja noch in der Entwicklung befindet) muss ich dieselbe Änderung auch an der "SelDirDialog"-Komponente vornehmen.

Habt ihr Ideen was ich hier (stattdessen) machen könnte?

Grüße
blablab

[angos]

Hi,

das hört sich für mich stark danach an, dass du die SeldirDialog-Komponente auf Grundlage von Seldir machen solltest, also:

 TSeldirDialog= class(TSelDir) Damit werden alle Eigenschaften von Seldir auch in SelDirDialog verfügbar und bei Änderungen an Seldir auch automatisch nach seldirdialog übertragen

Grüße

[shmia]

Im Objektinspektor werden nur Objektproperties angezeigt, die lesbar und beschreibbar sind.
Dein Property ist nicht beschreibbar.

Delphi-Quellcode:

published
  property SelDir: TSelDir read FSelDir write SetSelDir;
                                        ^^^^^^^^^^^^^^^

[Sir Rufo]

Ist das wirklich so?

Ich kenne Komponenten, die zeigen mir ihre Version im OI an, die ist aber Gray und kann ich definitiv nicht ändern

[shmia]

Zitat von blablab:

Ich entwickel zur Zeit eine Komponente "SelDir" mit der man einen Ordner von der Festplatte auswählen kann.

Da bist du nicht der Erste.
Schon vor 10 Jahren wurde so eine Komponente entwickelt.

[blablab]

@angos:
Das hab ich auch ausprobiert, allerdings ist es dann keine nicht-visuelle Komponente mehr, da diese immer den Vorfahr TComponent haben müssen. (Korrigiert mich falls ich falsch liege).

@shmia:
Ich kann im Objektinspektor auf SelDir zugreifen. Mit Read kann ich den Zeiger auf SelDir auslesen und somit auf SelDir zugreifen und dessen Eigenschaften auch ändern. Write bewirkt nur, dass ich den zeiger auf SelDir auch ändern kann und somit meiner SelDirDialog-Komponente eine fremde SelDir-Komponente zuweisen kann. Das möchte ich aber nicht.

Das Probmlem ist ja gerade, dass wenn ich die Eigenschaften von SelDir im Objektinspektor ändere, das zwar Auswirkungen auf das SelDir zur Entwicklungszeit hat, aber nicht auf das SelDir zur Laufzeit.

[shmia]

Zitat von Sir Rufo:

Ich kenne Komponenten, die zeigen mir ihre Version im OI an, die ist aber Gray und kann ich definitiv nicht ändern

Dann wurde das in höheren Delphi Versionen verbessert.
Bei Delphi 5 braucht man den Schreibzugriff auch wenn das so aussieht:

Delphi-Quellcode:

procedure TMeinKomponenten.SetVersion(const Value:string);
begin
  // nichts tun
end;

[blablab]

Also so wie es aussieht kann das gar nicht gehen. Selbst wenn ich read und write verwende

Delphi-Quellcode:

published
  property SelDir: TSelDir read FSelDir write SetSelDir;

Speichert sich Delphi die Einstellungen die ich an SelDir vornehme gar nicht.

Das bedeutet ich muss wohl leider alle Eigenschaften und ihre Defaultwerte einzeln kopieren...

[shmia]

Die Klasse TSelDir muss Folgendes erfüllen:
1.) von TPersistent direkt oder indirekt abgeleitet
2.) die Methode Assign muss überschrieben werden
Wenn man Assign nicht überschreibt, dann meldet Delphi beim Öffnen eines Formular mit deiner Komponente:

Code:

Klasse TSelDir kann nicht zu TSelDir zugewiesen werden

Die Methode SetSelDir muss so aussehen:

Delphi-Quellcode:

procedure TSelDirDialog.SetSelDir(const Value:SelDir);
begin
  FSelDir.Assign(Value);
end;