procedure wird nicht aufgerufen

[JnZn558]

Zitat von OldGrumpy:

Ich wiederhole mich nur ungern, aber in deinem Posting ist wieder keine Zeile Code die zeigt wie auf die Properties auch zugegriffen wird. Warum lässt Du den interessanten Teil immer weg? Diesmal hast Du in Deiner "Testanwendung" ja nicht mal mehr eine Instanz der Klasse TExpandingComponent erzeugt. Es wird also nicht mehr was Du uns zeigst, sondern immer weniger. Falsche Richtung...

ist das so schwer zu verstehen, es ist genauso wie wenn du ein button auf formular ziehst, erzeugst du selbst da ein instanz oder was?? das uebernimmt doch delphi, dafuer sind doch komponente in delphi da, um die arbeit zu erleichtern, dasselbe hab ich auch mit meiner komponente gemacht, es wird nicht zur laufzeit erzeugt, da muss man expliziert ne instanz erzeugen.

[OldGrumpy]

Durch Rumgeschnauze wird Dein Posting auch nicht besser. Die Frage bleibt weiterhin warum Du keinen Code zeigst der mit deiner selbstgebauten Klasse auch arbeitet. Wenn Du da über den Objektinspektor Sachen zuweist, solltest Du noch die entsprechenden Snippets aus dem *.DFM mit einstellen, Kristallkugeln sind gerade aus. Ansonsten zeig mal endlich Code der mit den Properties auch arbeitet. Nicht die Setter hinter den Properties, sondern Code der "von außen" auf die Properties zugreift. Denn davon ist bislang trotz mehrfacher Nachfrage nix zu sehen. Sollte das zu schwer sein, kannst Du auch einfach mal dein komplettes Projekt in ein ZIP-Archiv packen und hier einstellen.

[DeddyH]

Der Setter wird nur dann aufgerufen, wenn die öffentliche Property einen neuen Wert zugewiesen bekommt und nicht dann, wenn die Klasse selbst auf das dahinterliegende private Feld zugreift. Und Ersteres hat man bislang in keinem der gezeigten Codes zu sehen bekommen.

[JnZn558]

ich hab es nun geschafft

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExpandingComponent;

type
  TForm1 = class(TForm)
    ExpandingComponent1: TExpandingComponent;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    tes: TExpandingRecord;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

oh man, hab mich voll durchgequaelt. danke fuer alle muehe, mir tipps zugeben

[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.