Bei TPropertyEditor.Edit Eigensch. der Kompo lesen/schreiben

[APP]

Hallo,
ich habe meine Komponente brav (nach Jeff Overcash What ever happened to Proxies.pas?) in ein Design- und Runtime-Package aufgeteilt, und (fast) alles klappt Wunderbar.

Ich habe 2 Property-Editoren, einmal für einen SaveDialog für Ini-Files und einmal für ein Log-File:

Delphi-Quellcode:

UNIT FlappErrorReg;
TYPE
   TLogFileNameProperty = CLASS(TPropertyEditor)
      FUNCTION AllEqual: boolean; OVERRIDE;
      PROCEDURE Edit; OVERRIDE;
      FUNCTION GetAttributes: TPropertyAttributes; OVERRIDE;
      FUNCTION GetValue: STRING; OVERRIDE;
      PROCEDURE SetValue(CONST Value: STRING); OVERRIDE;
   END;
   TIniFileNameProperty = CLASS(TPropertyEditor)
      FUNCTION AllEqual: boolean; OVERRIDE;
      PROCEDURE Edit; OVERRIDE;
      FUNCTION GetAttributes: TPropertyAttributes; OVERRIDE;
      FUNCTION GetValue: STRING; OVERRIDE;
      PROCEDURE SetValue(CONST Value: STRING); OVERRIDE;
   END;

ich habe sie registriert:

Delphi-Quellcode:

   RegisterPropertyEditor(TypeInfo(STRING), TFlappError, 'LogFileName',
      TLogFileNameProperty);
   RegisterPropertyEditor(TypeInfo(STRING), TFlappError, 'IniFileName',
      TIniFileNameProperty);

wenn ich nun im Objektinspektor auf die jeweilige Eigenschaft klicke, öffnet sich der jeweilige FileSaveDlg.

Nun möchte ich aber in einer Dialog-Prozedur bestimmte Eigenschaften meiner Komponente lesen bzw. schreiben, aber irgendwie habe ich da einen Knoten:

(Beide Klassen sind gleich, nur einmal *.log einmal *.ini)

Delphi-Quellcode:

FUNCTION TLogFileNameProperty.AllEqual: boolean;
VAR
   FirstVal                        : STRING;
   i                               : Integer;
BEGIN
   FirstVal := GetStrValue;
   Result := True;
   i := 1;
   WHILE Result AND (i < PropCount) DO
      BEGIN
         Result := Result AND (GetStrValueAt(i) = FirstVal);
         Inc(i);
      END;
END;

PROCEDURE TLogFileNameProperty.Edit;
VAR
   Dlg                             : TOpenDialog;
BEGIN
   Dlg := TOpenDialog.Create(Application);
   TRY
      WITH Dlg DO
         BEGIN
            Dlg.Filter := 'Logfile (*.log)|*.log|Textfile (*.txt)|*.txt|all Files|*.*';
            Dlg.DefaultExt := '*.log';
            Title := 'Logfile for ' + TComponent(GetComponent(0)).Name;
            FileName := Value;
            IF Execute THEN Value := FileName;
         END;
   FINALLY
      FreeAndNil(Dlg);
   END
END;

FUNCTION TLogFileNameProperty.GetAttributes: TPropertyAttributes;
BEGIN
   Result := [paDialog]
END;

FUNCTION TLogFileNameProperty.GetValue: STRING;
BEGIN
   Result := GetStrValue;
END;

PROCEDURE TLogFileNameProperty.SetValue(CONST Value: STRING);
BEGIN
   SetStrValue(Value);
END;

Ich möchte nun in PROCEDURE TLogFileNameProperty.Edit

1) die Eigenschaft InIFileEnabled (Boolean) von meiner Komponente lesen und
2) die Eigenschaft LogFileName für die es auch einen Propertyeditor (siehe oben) gibt schreiben (nur in bestimmten Fällen, sonst natürlich nur über den eigenen Propertyeditor)

Ich hoffe es kann mir jemand helfen meinen Konten zu lösen :freak:

[APP]

Das lesen hab ich jetzt,
ich vergaß wohl eine Kleinigkeit :oops:

Delphi-Quellcode:

WITH Component AS TFlappError DO
  BEGIN
    IniFileName := FileName;  // jetzt kann ich die Eigenschaft lesen!!!
  END;

Auf diesem Wege kann ich auch schreiben, allerdings aktualisiert der Objektinspektor den Wert nicht, erst wenn ich mit der Maus auf die Eigenschaft klicke wird der Wert dargestellt.

Bin für jede Hilfe dankbar

[APP]

Jetzt habe ich auch das Zauberwort für das Aktualisieren des Objektinspektors gefunden! :dancer: :dancer2:

Delphi-Quellcode:

Designer.Modified;

Ich hoffe trotzdem, jemand kann mir sagen ob ich richtig liege, auch wenn alles zu Funktionieren scheint :roll: