Komponenten Properties Events

[Thomas Feichtner]

Hallo,

bin gerade dabei meine eigene Komponente zu entwickeln (Ableitung von z.B. TEdit). Dabei möchte ich meine Eigenschaften und Ereignisse kapseln (so wie bei DevExpress). Dazu habe ich mir eine Klasse TTestEditProperties gemacht mit einer Eigenschaft bzw. Ereigniss.
Wenn ich nun diese Klasse in mein Edit einbinde, sehe ich Objektinspektor das Ereignisse nicht, die Eigenschaft jedoch schon.
Woran könnte das liegen.
Bei den DevExpress-Komponenten konnte ich auch keinen entscheidenden Hinweis finden.

Delphi-Quellcode:

unit TestEditUnit;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls;

type

  TTestEditProperties = class(TPersistent)
  private
    FTestEingenschaft: string;
    FOnTestEreigniss: TNotifyEvent;
  public
  published
    property TestEingenschaft: string read FTestEingenschaft write FTestEingenschaft;
    property OnTestEreigniss: TNotifyEvent read FOnTestEreigniss write FOnTestEreigniss;
  end;

  TTestEdit = class(TEdit)
  private
    FSwfEditProperties: TTestEditProperties;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published-Deklarationen }
    property TestEditProperties: TTestEditProperties read FSwfEditProperties write FSwfEditProperties;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Test', [TTestEdit]);
end;

{ TTestEdit }

constructor TTestEdit.Create(AOwner: TComponent);
begin
  inherited;
  FSwfEditProperties := TTestEditProperties.Create;
end;

destructor TTestEdit.Destroy;
begin
  FreeAndNil(FSwfEditProperties);
  inherited;
end;

end.

[Uwe Raabe]

Zitat:

Zitat von Thomas Feichtner (Beitrag 1415782)

Wenn ich nun diese Klasse in mein Edit einbinde, sehe ich Objektinspektor das Ereignisse nicht,

Auch nicht auf der Ereignisse-Seite?

[Thomas Feichtner]

Nein,
leider nicht.

(Wollte ein Bild anhängen, jedoch sagte er jedes mal, dass er diese Grafikformat (bmp, png, jpg) nicht unterstützt.)

[Uwe Raabe]

Zitat:

Zitat von Thomas Feichtner (Beitrag 1415784)

(Wollte ein Bild anhängen, jedoch sagte er jedes mal, dass er diese Grafikformat (bmp, png, jpg) nicht unterstützt.)

Da gibt es Größenbeschränkungen.

Kannst du mal ein simples Projekt für das Designtime-Package anhängen, bei dem das Problem auftritt?

[Thomas Feichtner]

Zitat:

Zitat von Uwe Raabe (Beitrag 1415786)

Zitat:

Zitat von Thomas Feichtner (Beitrag 1415784)

(Wollte ein Bild anhängen, jedoch sagte er jedes mal, dass er diese Grafikformat (bmp, png, jpg) nicht unterstützt.)

Da gibt es Größenbeschränkungen.

Da wäre ich darunter geblieben. Ist ja egal.

Zitat:

Zitat von Uwe Raabe (Beitrag 1415786)

Kannst du mal ein simples Projekt für das Designtime-Package anhängen, bei dem das Problem auftritt?

Hier bitte

[Uwe Raabe]

Offenbar funktionieren bei nested Properties die Events nicht von Haus aus. DevExpress registriert dafür extra ein eigenes Property PropertiesEvents und einen dazu passenden Property Editor TcxEditPropertiesEventEditor, der das implementiert. Sowas müsstest du dann auch machen.

Ehrlich gesagt, ich würde das auf die althergebrachte Methode erledigen und die separate Eigenschaftsklasse weglassen. Es ist halt immer etwas aufwändiger, wenn man gegen das originale Design-Konzept programmiert. Persönlich gefällt mir diese Kapselung auch nicht wirklich, aber das ist sicher Geschmackssache. Vielleicht gibt es in deinem Fall ja auch gute Gründe für dieses Design.

[Fritzew]

Sollte es nich reichen die TTestEditProperties auch zu registrieren?

Delphi-Quellcode:

z.B: RegisterNoIcon([TTestEditProperties]);

Bin leider nicht an einem Delphi Rechner kann es nicht testen

[Uwe Raabe]

Zitat:

Zitat von Fritzew (Beitrag 1415793)

Sollte es nich reichen die TTestEditProperties auch zu registrieren?

Nein, TTestEditProperties ist nicht von TComponent abgeleitet.

[Thomas Feichtner]

Zitat:

Zitat von Uwe Raabe (Beitrag 1415790)

Offenbar funktionieren bei nested Properties die Events nicht von Haus aus. DevExpress registriert dafür extra ein eigenes Property PropertiesEvents und einen dazu passenden Property Editor TcxEditPropertiesEventEditor, der das implementiert. Sowas müsstest du dann auch machen.

Danke für den Tipp.
So habe ich es nun auch gemacht. Und wie es aussieht funktioniert es.