引言: 想在Edit中自定義一個屬性,此屬性在設計時可輸入內容,在運行時也還可以讀寫此值,就好像 Caption 屬性的功能一樣,小弟初學望指點,最好傳一個例子給我,E-mail: soulin@asahigrp.com,先謝了

unit MyEdit;
 
interface    uses Classes, ComCtrls;
  Type
    TMyEdit = class(TEdit)
    private
      FMyValue : String;
    published
      property MyValue :string read FMyValue write FMyValue;
    end;    Procedure Register;
 
implementation
 
Procedure Register;
begin
  RegisterComponents('Sample', [TMyEdit]);
end;    end.