Kleines Beispiel:
Delphi-Quellcode:
type
TMyObject = class
private
FProp1 : Integer;
FProp2 : TBitmap;
procedure SetProp2 (Value: TBitmap);
published
property Prop1: Integer read FProp1 write FProp1;
property Prop2: TBitmap read FProp2 write SetProp2;
end;
Bei
Prop1 wird der Wert direkt gelesen
und geschrieben. Bei
Prop2 wird direkt gelesen und mit der Routine
SetProp2 geschrieben. Diese Setter-Routine wird beim Zugriff über 'SetOrdProp' bzw. 'SetObjectProp'
automatisch aufgerufen, sie sollte dann die Daten kopieren:
Delphi-Quellcode:
procedure TMyObject.SetProp2 (Value: TBitmap);
begin
FProp2.Assign(Value);
end;
Gruß Hawkeye