Range mit InRange- function auslesen ?

[himitsu]

siehe TComponent.DefineProperties(Filer: TFiler);

Dort ist als Beispiel drin, wie das bei den "unsichtbaren" Property Left und Top der nichtvisuellen Komponenten ala TTimer gemacht wurde.

[Chris211183]

http://docwiki.embarcadero.com/Libra...fineProperties

das verstehe ich nicht, was hat es mit dem Ancestor auf sich ?
Erklärung für Nichtprogrammierer wäre gut

[himitsu]

Das Ancessor ist egal ... es ist ja nur die Speicherstelle, wo die Variable für die Position drin ist.

Delphi-Quellcode:

procedure TComponent.PropertyLeseMethode(Reader: TReader);
begin
  MeineVariable := Reader.ReadInteger;
end;

procedure TComponent.PropertySpeicherMethode(Writer: TWriter);
begin
  Writer.WriteInteger(MeineVariable);
  // Man kann hier auch mehrere Werte speichern (z.B. X und X eines TPoint), aber das würde/könnte/sollte man vielleicht besser in
  // WriteListBegin und WriteListEnd verpacken, damit es als zusammengehörig erkennbar ist.
  // Gibt weniger Probleme beim Einlesen, wenn etwas am Format falsch ist, bzw. geändert wurde.
end;

procedure TComponent.DefineProperties(Filer: TFiler);
begin
  Filer.DefineProperty('PropertyNameInDerDFM', PropertyLeseMethode, PropertySpeicherMethode, TrueWennPropertyInDerDFMGespeichertWerdenSoll);
  // oder Filer.DefineBinaryProperty

  // z.B. MeineVariable<>0, bzw. MeineVariable<>DefaultOrInitialWert oder einfach immer nur True für TrueWennPropertyInDerDFMGespeichertWerdenSoll
end;

[Chris211183]

Super, das habe ich verstanden !

dann kann der Threat geschlossen werden !

Vielen Dank !!!