Problem mit Speicherbezeichner "default" bei Properties

[skyobserver]

Hallo zusammen!

Ich habe ein Problem mit den Properties meines TTestForm welches ich von TForm abgeleitet habe:
Es gibt eine published Property "Test" (Boolean). Diese Property soll beim ersten Erstellen einen Default
Wert "True" bekommen und fortan den im OI eingestellten Wert speichern. Weiterhin sollte der OI anzeigen
ob im Moment der Wert auf standard bzw. nicht standard (Schrift normal bzw. fett) steht.

Wenn ich bei der Deklaration der Property "default True" angebe und im Constructor "FTest := True;"
setze wird nur zur Laufzeit die Einstellung von "Test" anscheinen nicht mehr geladen. Zur Designzeit ist
aber immer der richtige zuletzt gewählte Wert im OI zu sehen.
Ohne "default True" und "FTest := True" klappt es (allerdings ist dann immer "False" Vorgabe).


Hat Jemand eine Idee was ich falsch mache?


Das Form "TestFormObjRep" wird der Objektablage hinzugefügt und dann hinterher mit "kopieren" ins Projekt eingebunden

Hier ist mein TestPackage:

[skyobserver]

Keiner eine Idee?

[Hansa]

Zitat:

Zitat von skyobserver

Ich habe ein Problem mit den Properties meines TTestForm welches ich von TForm abgeleitet habe:

Du gehörst zumindest zu dem 1 % der Leute, die wissen oder zumindest ahnen, wie mächtig die Objektablgae ist. :shock: Properties für Forms gehören aber leider nicht in diesen Kontext. Das passt nicht. Forms geniessen eine Sonderstellung.

[Muetze1]

1. TestForm fehlt die DFM (die braucht er immer!)
2. TestFormObjRep ist nicht richtig abgeleitet! Es steht kein "inherited" sondern noch "object" im DFM file. Kann mit 1. zusammen hängen.

[Ralf Kaiser]

Zitat:

Zitat von skyobserver

Hat Jemand eine Idee was ich falsch mache?

Hab mir das Package noch nicht angesehen aber meine spontane Idee war: Hast du schon mal versucht die Initialisierung in der Methode "Loaded" (überschreiben und vorher inherited aufrufen) zu machen?

Ralf

[skyobserver]

@Muetze1: Danke, werde ich am Abend mal testen

@Alfi001: Zuerst dachte ich auch das Problem wäre der Zeitpunkt wann ich die
Property abfrage (habe daher schon versucht "Loaded" zu überschreiben).

Wenn ich einen Button auf das Form setze und bei "ButtonClick" in Abhängigkeit von "Test" ein
ShowMessage('True' bzw. 'False') ausgebe müßte die Property auf jeden Fall geladen sein bevor
ich den Button anklicken kann - aber genau das klappt schon nicht.

-Ich öffne das Projekt in Delhi und im OI ist der richtige Wert gesetzt!
-Ich starte das Projekt und klicke den Button und die Property ist falsch gesetzt!!

Dieser Fehler tritt nicht auf, wenn ich "default True" und "FTest := True" im constructor entferne!!!

Diesen Zusammenhang verstehe ich nicht :gruebel:

Ich habe entweder meine geänderte Property (aber keinen Default beim ersten Erstellen)
oder meinen Default beim ersten Erstellen (aber keine geänderte Property)

:evil: Ich weigere mich zu glauben, daß nicht beides gleichzeitig gehen soll gggggrrrrrrrr... :evil:

[jim_raynor]

Spannender ist die Frage, wann die Property im constructor gesetzt wird, und wann sie aus der Resourcendatei geladen wird.

Ich würde dir empfehlen, dass FTest:=true vor das inherited zu setzen. Es ist nämlich wahrscheinlich, dass im inherited Create auch die Eigenschaften gelesen werden ;)

[skyobserver]

JAWOHL DAS IST ES!!!

"FTest := True" muß vor dem "inherited Create" stehen!

:shock: Das Ganze erscheint mir auch irgendwie unglaublich logisch... :shock:

:wall: :wall: :wall: :wall: Und ich war mir sicher das schon versucht zu haben... :wall: :wall: :wall: :wall:

Habe wohl beim vielen Testen den Überblick verloren...

@Hansa: Sorry! Das geht einwandfrei!

Danke für alle Hinweise!

Mein Glaube an Delphi wurde erneuert - mein Leben hat wieder einen Sinn!

Also hier das ganze nochmal als Download so wie es richtig ist!

1. Package compilieren
2. Package installieren
3. TestFormObjRep Form mit rechts anklicken und "Der Objektablage hinzufügen"
4. Neues Projekt erstellen
5. Datei-> Neu -> Weitere -> TestForm (kopieren) -> OK

[Muetze1]

Zitat:

Zitat von jim_raynor

Ich würde dir empfehlen, dass FTest:=true vor das inherited zu setzen. Es ist nämlich wahrscheinlich, dass im inherited Create auch die Eigenschaften gelesen werden ;)

Aber doch nur die Eigenschaften der Vererbungsvorfahren. Das macht überhaupt keinen Unterschied. Grundlegend gibt es keine Probleme mit solchen Vererbungen.

@skyobserver: Meine beiden Anmerkungen mal umgesetzt und alleinig ausprobiert (mit Hinzunehmen deiner im obigen Download auskommentierten Anweisungen)? Das alleine sollte richtig klappen und benötigt kein setzen der Eigenschaft vor inherited Create (noch nie benötigt oder gemacht)

[jim_raynor]

Zitat:

Zitat von Muetze1

Aber doch nur die Eigenschaften der Vererbungsvorfahren. Das macht überhaupt keinen Unterschied. Grundlegend gibt es keine Probleme mit solchen Vererbungen.

Na dann bin ich mal auf die Erklärung gespannt, warum es so funktioniert :angel:

[skyobserver]

@Muetze1:

Meine Lösung funktioniert zwar - aber wenn der andere
Weg "korrekter" ist probiere ich das mal aus...

Mit welchen Schritten leite ich den mein TestForm (mit DFM) so
ab das "inherited" statt "object" in der DFM steht?

Es wird in der Objektablage im Bereich meines Package-Projektes
nicht angezeigt...

Ich hatte für mein TestFormObjRep mit Datei->Neu->Formular ein
Form erstellt, dann die Deklaration "Form1 = class(TForm)" in
"Form1 = class(TTestForm)" geändert, gespeichert un dann das
Form neu geladen...


Wo soll denn der Default-Wert herkommen? Jedenfalls nicht von "default True":

Delphi-OH:

Zitat:

Eigenschaftswerte werden nicht automatisch auf den Standardwert initialisiert, d. h. die Standarddirektive steuert nur das Speichern von Eigenschaftswerten in die Formulardatei und nicht das Speichern des ersten Werts der Eigenschaft in einer neu erstellten Instanz.

[Hansa]

Zitat:

Zitat von skyobserver

Mit welchen Schritten leite ich den mein TestForm (mit DFM) so
ab das "inherited" statt "object" in der DFM steht?

An genau diesem Punkt :

Zitat:

Zitat von skyobserver

5. Datei-> Neu -> Weitere -> TestForm (kopieren) -> OK

Noch nichr gesehen, dass unten neben "kopieren" auch "vererben" steht ? Würde mich allerdings nicht wundern, wenn das grau und somit nicht enabled ist.

[Muetze1]

Zitat:

Zitat von skyobserver

Mit welchen Schritten leite ich den mein TestForm (mit DFM) so
ab das "inherited" statt "object" in der DFM steht?

Da du des nun schon kopiert hast: Auf der Form einen Rechtsklick und "Anzeige als Text" und dort dann das erste "object" durch "inherited" in der ersten Zeile ersetzen. Danach wieder Rechtsklick und "Anzeige als Formular".

Beachte, dass deine Basisform eine DFM benötigt!

Zitat:

Zitat von skyobserver

Wo soll denn der Default-Wert herkommen? Jedenfalls nicht von "default True":

Delphi-OH:

Zitat:

Eigenschaftswerte werden nicht automatisch auf den Standardwert initialisiert, d. h. die Standarddirektive steuert nur das Speichern von Eigenschaftswerten in die Formulardatei und nicht das Speichern des ersten Werts der Eigenschaft in einer neu erstellten Instanz.

Aus deinem Constructor. Wie die Hilfe schon schreibt legt die Angabe von "default xxx" bei den Properties nicht den Wert der Property nach erstellen fest. Du musst der Angabe entsprechend die Property initialisieren und das bedeutet dann im Constructor das True auf die interne Variable zu setzen. Die Default Angabe hilft dem Streaming System nur zu entscheiden ob er die Eigenschaft schreiben muss oder nicht (bzw. der OI nutzt gleiches für seine Darstellung von wegen fett oder normal).

[Hansa]

Zitat:

Zitat von Muetze1

Da du des nun schon kopiert hast: Auf der Form einen Rechtsklick und "Anzeige als Text" und dort dann das erste "object" durch "inherited" in der ersten Zeile ersetzen. Danach wieder Rechtsklick und "Anzeige als Formular".

Besser wäre es wohl, das Programm nicht noch weiter von Hand zu verunstalten. :mrgreen: Sobald die Form im Repository liegt, kann man sie doch schnell vererben. Zumindest wenn man nicht wie üblich unten auf kopieren klickt sondern auf vererben, wie bereits gesagt. In einer hierarchischen Struktur an Forms ist es tödlich da mittendrin in den DFMs rumzupfuschen. Bei einer Form ist das nicht wichtig, eher überflüssig. Ab zwei wirds aber immer interessanter diese Technik auch zu benutzen. Bei >10 ähnliche Forms, selbst wenn sie nicht so sehr viel gemeinsam haben ist es IMHO ein Muss.

[skyobserver]

@Muetze1: Was denn nun??? :wiejetzt:

Zitat:

@skyobserver: Meine beiden Anmerkungen mal umgesetzt und alleinig ausprobiert (mit Hinzunehmen deiner im obigen Download auskommentierten Anweisungen)? Das alleine sollte richtig klappen und benötigt kein setzen der Eigenschaft vor inherited Create (noch nie benötigt oder gemacht)

Zitat:

Du musst der Angabe entsprechend die Property initialisieren und das bedeutet dann im Constructor das True auf die interne Variable zu setzen

Widerspricht sich das nicht irgendwie...?

[Hansa]

Das hier :

Delphi-Quellcode:

inherited Create...

ist ein Sonderfall, der wirklich nur selten benötigt wird. Damit kann man das original Create der Vorfahren quasi übersteuern und beeinflussen.

Und das :

Delphi-Quellcode:

inherited;

guckt in der abgeleiteten Form nach dem nächstmöglichen Vorfahr. Also :

Form1
Form2 <---- enthält Prozedur XY
Form3
Form4

Form4.Create hat die Methode XY nicht und guckt deshalb im Vorgänger Form3 : nichts. Wer ist da Vorgänger ? Form2 und die enthält Prozedur XY und die wird dann auch benutzt. Selbst wenn Form1 auch eine XY hat, so wird die nicht benutzt. Es sei denn man schreibt bei Form2.XY ins Create noch inherited rein. Mache ich z.B. so, um Variablen ao nach und nach einzuführen und auch zu initialisiern. An der Stelle ist das Spiel aber noch nicht zu Ende. 8) Damit das läuft muss auch Gebrauch von der PROTECTED-Sektion in den Deklarationen der Forms gemacht werden.

Ich rate jedenfalls dringend davon ab, die in Delphi aus gutem Grund eingebauten Sachen per Hand zu umgehen oder mit Gewalt zurechtzubiegen. Habe ich z.B. eine Form mit Button in der Obektablage, Dann wird im OnClick-Event bei einer nötigen Änderung schon die Zeile

Delphi-Quellcode:

inherited;

automatisch eingefügt. Da fängts halt schon an.

[Muetze1]

Zitat:

Zitat von skyobserver

@Muetze1: Was denn nun??? :wiejetzt:

Zitat:

@skyobserver: Meine beiden Anmerkungen mal umgesetzt und alleinig ausprobiert (mit Hinzunehmen deiner im obigen Download auskommentierten Anweisungen)? Das alleine sollte richtig klappen und benötigt kein setzen der Eigenschaft vor inherited Create (noch nie benötigt oder gemacht)

Zitat:

Du musst der Angabe entsprechend die Property initialisieren und das bedeutet dann im Constructor das True auf die interne Variable zu setzen

Widerspricht sich das nicht irgendwie...?

Nein! :evil: Die Betonung meiner ersten Aussage liegt vor allem in dem "vor inherited Create". Du musst die Eigenschaft ihren unter default angegebenen Wert geben, aber bitte nach dem inherited Create Aufruf im Constructor!

[skyobserver]

@Hansa:

Wenn ich die OH richtig interpretiere, dann ist

Delphi-Quellcode:

constructor Create(Owner: TComponent);
begin
  inherited;
end;

mit

Delphi-Quellcode:

cinstructor Create(Owner: TComponent);
begin
  inherited Create(Owner);
end;

absolut identisch!


Die Angabe von "Create(Owner)" im zweiten Fall ist lediglich überflüssig, weil
nicht auf irgend eine andere Vorfahren-Methode sondern auf die eigene Vorfahren-
Methode (Create) verwiesen wird. Delphi denkt sich also im ersten Fall das
"Create(Owner)" selber hinzu...