Event von Sub-Objekt als Property anzeigen

[BlueStarHH]

Zitat von TBx:

Außerdem muss auch dein TMyObject von TComponent abgeleitet werden und ebenfalls im Package registriert werden.

Danke! Aber was mache ich, wenn ich mein TMyObject nicht von TComponent ableiten kann, weil TMyObject eine fertige Klasse von Dritten ist. Z.B. eine TObjectList<T>

[peterbelow]

Zitat von BlueStarHH:

Zitat von TBx:

Außerdem muss auch dein TMyObject von TComponent abgeleitet werden und ebenfalls im Package registriert werden.

Danke! Aber was mache ich, wenn ich mein TMyObject nicht von TComponent ableiten kann, weil TMyObject eine fertige Klasse von Dritten ist. Z.B. eine TObjectList<T>

Solche Objekte lassen sich leider nicht als published properties einer TComponent verwenden, die IDE erfordert, dass solche Objekte mindestens von TPersistent abgeleitet sind. Du mußt also in deinem Fall eine Wrapper-Klasse erzeugen, die von TPersistent abgeleitet ist und intern halt eine Instanz deiner eigentlichen Klasse verwendet und deren properties und events quasi nach aussen (published) sichtbar macht.

[BlueStarHH]

Zitat von peterbelow:

Zitat von BlueStarHH:

Zitat von TBx:

Außerdem muss auch dein TMyObject von TComponent abgeleitet werden und ebenfalls im Package registriert werden.

Danke! Aber was mache ich, wenn ich mein TMyObject nicht von TComponent ableiten kann, weil TMyObject eine fertige Klasse von Dritten ist. Z.B. eine TObjectList<T>

Solche Objekte lassen sich leider nicht als published properties einer TComponent verwenden, die IDE erfordert, dass solche Objekte mindestens von TPersistent abgeleitet sind. Du mußt also in deinem Fall eine Wrapper-Klasse erzeugen, die von TPersistent abgeleitet ist und intern halt eine Instanz deiner eigentlichen Klasse verwendet und deren properties und events quasi nach aussen (published) sichtbar macht.

Wie kann ich dann das Event nach außen hin sichtbar machen? Wie verweise ich also bei einem Event in der Wrapper-Klasse auf das Event von der gewrappten Instanz?

[DeddyH]

Wenn es nur darum geht, dem "inneren" Objekt einen Ereignishandler zuzuweisen, kann man den doch einfach durchreichen, oder habe ich das Problem nicht verstanden?

Delphi-Quellcode:

TMyObject = class(TObject)
private
  FOnMyEvent: TNotifyEvent;
published
  property OnMyEvent: TNotifyEvent read FOnMyEvent write FOnMyEvent;
end;

TMyComponent = class(TComponent)
private
  FMyObject: TMyObject;
  function GetMyEvent: TNotifyEvent;
  procedure SetMyEvent(const Value: TNotifyEvent);
published
  property OnMyEvent: TNotifyEvent read GetMyEvent write SetMyEvent;
end;

...

function TMyComponent.GetMyEvent: TNotifyEvent;
begin
  Result := FMyObject.OnMyEvent;
end;

procedure TMyComponent.SetMyEvent(const Value: TNotifyEvent);
begin
  FMyObject.OnMyEvent := Value;
end;

Aus dem Kopf, daher ungetestet.

[TBx]

Zitat von BlueStarHH:

was mache ich, wenn ich mein TMyObject nicht von TComponent ableiten kann, weil TMyObject eine fertige Klasse von Dritten ist.

Ich fürchte, dann wirst du eine Wrapperklasse erstellen müssen, die die gewünschten Eigernschaften entsprechend durchreicht.
Oder aber du implementierst einen eigenen PropertyEditor. Ist halt die Frage, ob der Aufwand sich lohnt.