Setter von Properties

[Gremlin]

Hallöchen,

ich erstelle gerade diverse Setter für published Properties und dabei ist mir aufgefallen, das in der IDE über den ObjectInspector die Setter für Boolean Properties immer zweimal aufgerufen werden, während es bei den anderen Settern jeweils nur einmal passiert. Gibt es dafür einen besonderen Grund?

Delphi-Quellcode:

type
  TFoo = class(TComponent)
  private
    FValueInt  : integer;
    FValueBool : Boolean;
    procedure SetValueInt(Value:integer);
    procedure SetValueBool(Value:Boolean);
  published
    constructor Create(AOwner:TComponent); override;
    property ValueInt  : integer read FValueInt  write SetValueInt;
    property ValueBool : Boolean read FValueBool write SetValueBool;
  end;

//------------------------------------------------------------------------------
constructor TFoo.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  FValueInt  := 0;
  FValueBool := False;
end;

//------------------------------------------------------------------------------
procedure TFoo.SetValueInt(Value:integer);
begin
  ShowMessage('TFoo.SetValueInt - called one times');
  if (Value <> FValueInt) then begin
    FValueInt := Value;
  end;
end;

//------------------------------------------------------------------------------
procedure TFoo.SetValueBool(Value:Boolean);
begin
  ShowMessage('TFoo.SetValueBool - called two times');
  if (Value <> FValueBool) then begin
    FValueBool := Value;
  end;
end;

[himitsu]

Passiert das auch ohne ShowMessage?
Stattdessen HaltePunkte im Debugger oder nut Logging in ein Memo oder eine Datei, anstatt ein Dialog mit vielen Messages.


Ist das der komplette Beispielcode?

Wie sieht die DFM aus?

Mit Debug-DCUs kompiliert und Haltepunkt in den Setter.
Von wo wird der Setter beide Male aufgerufen?

Und ja, man kann auch die IDE debugen,
indem man als eine weitere IDE zum Debuggen startet.


Eigentlich wüsste ich nicht, warum der Setter doppelt aufgerufen werden sollte.

[Gremlin]

Ja, das passiert leider auch ohne ShowMessage.
Ich hab mal schnell mit der DbugIntf (aus GExperts) geprüft. Die Setter werden für Boolean Properties immer doppelt aufgerufen.

Der Setter wird über den Object-Inspector (OI) beim Setzen des Wertes aufgerufen.

Siehe Bild:

- 1x Boolean auf True (2x)
- 1x Integer auf 1 (1x)
- 1x Boolean auf False (2x)


Es gibt keinen Beispielcode, ist ein Package und eine Komponente, einfach installieren und dann die Properties im OI setzen.

[jaenicke]

Kann es sein, dass du die CnWizards installiert hast? Die verändern ja den Eintrag bei Delphi 7 glaube ich noch, weil das dort noch keine Checkbox hatte.

Aber debuggen und in den Stacktrace schauen wie himitsu schon schrieb geht sicher am schnellsten.

[Gremlin]

Nein, ist ein Delphi ohne CNWizard.

Ok IDE debuggen hab ich noch nie gemacht. Kann man die Schritte dazu irgendwo schnell nachlesen?

Kommentiere ich den Programmcode im IF-Zweig aus, so wird der Setter nur einmal ausgeführt, ist aber natürlich keine Lösung.

Delphi-Quellcode:

//------------------------------------------------------------------------------
procedure TFoo.SetValueBool(Value:Boolean);
begin
  SendDebug(Format('TFoo.SetValueBool: %s', [IfThen(Value, 'True', 'False')]));
  //ShowMessage('TFoo.SetValueBool');
  if (Value <> FValueBool) then begin
    // FValueBool := Value;
  end;
end;

[himitsu]

Du hast ein Package und da gehst du auf Menü > Start > Parameters und stellst da bei Host-Anwendung einfach die IDE ein,
also $(BDS)\bin\bds.exe ein, bzw. damals hieß das noch delphi.exe .

Den Delphi-Code der IDE selber kann man natürlich nicht debuggen, (auch bei der Enterprice sind diese Quellcodes nicht mit dabei)
aber man sieht im Stacktrace wo der Aufruf her kommt.

[Gremlin]

Vielen Dank, leider verstehe ich die Vorgehensweise gerade nicht.
Ich hab hier ein D7 Ent + ein Design/Runtime Package mit meiner kleinen Komponente.

Wie muß ich jetzt bitte mit D7 vorgehen?

[sakura]

Leider habe ich kein D7 irgendwo parat, aber zumindest in neueren Versionen kann ich das Verhalten nicht nachvollziehen.

Bist Du Dir sicher, dass das nicht evtl. durch den eigenen Code passiert? Kannst Du evtl. die gesamte Komponente hier hochladen?

...:cat:...

[Gremlin]

Die Komponenten ist ganz oben in #1 angegeben, muss nur noch in ein Package rein.

Zur Info: Mir ist das Verhalten heute rein zufällig in einer umfangreicheren Komponente aufgefallen, die ich hier nicht angeben kann.
Dort war noch zum Debuggen ein ShowMessage im Setter enthalten. Eine Änderung der Property über den OI gab dann die zweifache Ausgabe der Meldung.
Deshalb auch diese kleine Test-Komponente.

Ich habe ein Package für XE6 erstellt -> Das Verhalten ist genau gleich.

Nachtrag: Für XE 10.1 Berlin wird der Setter für Boolean genau einmal aufgerufen, hier muß also etwas geändert worden sein.