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.