Разработка компонентов в DELPHI. Вощинская Г.Э. - 12 стр.

   TMyClass=class(TParentClass)
   private
        FField: integer;                   // ɩɨɥɟ
   protected
        function GetField: string;          // ɦɟɬɨɞ
        procedure SetField(AValue: string);// ɦɟɬɨɞ
   published
        property PField: string             // ɫɜɨɣɫɬɜɨ
           read GetField write SetField;
   end;


var MyObj: TMyClass;                       // ɷɤɡɟɦɩɥɹɪ


implementation


function TMyClass.GetField: string;
begin
 Result:=IntToStr(FField);
end;


procedure TMyClass.SetField(AValue: string);
var x,Code: integer;
begin
 Val(AValue,x,Code);
 // ɩɪɨɜɟɪɤɚ ɤɨɪɪɟɤɬɧɨɫɬɢ ɧɨɜɨɝɨ ɡɧɚɱɟɧɢɹ
 if (x<>FField) and (Code=0) then
 begin
   FField:=x;
   //…
   // Ⱦɨɩɨɥɧɢɬɟɥɶɧɵɟ ɞɟɣɫɬɜɢɹ, ɟɫɥɢ ɨɧɢ ɧɟɨɛɯɨɞɢɦɵ
 end;
end;
end.



                                  12