╩αΩ ±Ω≡√≥ⁿ ±ΓεΘ±≥Γα εß·σΩ≥α?

┬ Φσ≡α≡⌡ΦΦ VCL Γ ßεδⁿ°Φφ±≥Γσ ±δ≤≈ασΓ ±≤∙σ±≥Γ≤σ≥ ≤≡εΓσφⁿ εß·σΩ≥εΓ-"∩≡σΣ°σ±≥ΓσφφΦΩεΓ" (TCustomXXXX), Γ Ωε≥ε≡√⌡ ∞φεπΦσ ±ΓεΘ±≥Γα ±Ω≡√≥√. ─δ ≤φα±δσΣεΓαφφ√⌡ ε≥ ≥αΩΦ⌡ "∩≡σΣ°σ±≥ΓσφφΦΩεΓ" εß·σΩ≥εΓ ∞εµφε "ε≥Ω≡√Γα≥ⁿ" φα Γ√ßε≡ ≥σ ΦδΦ Φφ√σ ±ΓεΘ±≥Γα. └ ΩαΩ ∞εµφε ±εΩ≡√≥ⁿ ±ΓεΘ±≥Γα, Ωε≥ε≡√σ εß· Γδσφ√ Γ published-εßδα±≥Φ ε≥ Object Inspector'α, φε ∩≡Φ ²≥ε∞ ε±≥αΓΦ≥ⁿ Γετ∞εµφε±≥ⁿ Σε±≥≤∩α Γε Γ≡σ∞ ≡αßε≥√ ∩≡επ≡α∞∞√? ╨σ°σφΦσ ±ε±≥εΦ≥ Γ εß· ΓδσφΦΦ ±ΓεΘ±≥Γα "∩ε φεΓεΘ" Γ public-εßδα±≥Φ. ┬ ∩≡Φ∞σ≡σ ±Ω≡√≥√∞ ß≤Σσ≥ ≤ εß·σΩ≥α TMyControl ±ΓεΘ±≥Γε Height.

TMyControl = class(TWinControl)
protected
  procedure SetHeight(Value: Integer);
  function GetHeight: Integer;
public
  property Height: Integer read GetHeight write SetHeight;
end;

procedure TMyControl.SetHeight(Value: Integer);
begin
  inherited Height := Value;
end;

function TMyControl.GetHeight;
begin
  Result := inherited Height;
end;

╤εΓσ≥√ φα≈Φφα■∙Φ∞