procedure wird nicht aufgerufen

[OldGrumpy]

Zitat von JnZn558:

ich hab es nun geschafft

Gratuliere!

Zitat von JnZn558:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  tes := TExpandingRecord.Create( Self );
  ExpandingComponent1.Property1.StringProp := 'mach mal das was ich will';
  ExpandingComponent1.Property1 := tes;  // erst bei dieser zeile springt eine meldung aus
end;

Das ist ja auch kein Wunder, der erste Zugriff ist ja nur ein Lesezugriff, da wird also nur der Getter angesprochen (der liefert dann die Instanz von TExpandingRecord zurück, von der dann der Setter von TExpandingRecord.StringProp angezogen wird, welcher in dem Fall nur direkt die zugehörige Membervariable befüllt...) Da kann ja auch keine Meldung vom Setter von TExpandingComponent.Property1 ausgegeben werden
Und beim zweiten Zugriff wird dann der "richtige" Setter angezogen und Deine Message ausgegeben.