如何將屬性添加到組件中，該組件將反映在Delphi 7中的對象檢查器

Question

中，向對象添加一個propery時，如何在對象檢查器中查看該屬性？

Answer 1

使財產published。例如，

private 
    FMyProperty: integer; 
published 
    property MyProperty: integer read FMyProperty write FMyProperty; 

通常，當屬性發生更改時，您需要重新繪製控件（或執行其他一些處理）。然後，你可以做

private 
    FMyProperty: integer; 
    procedure SetMyProperty(MyProperty: integer); 
published 
    property MyProperty: integer read FMyProperty write SetMyProperty; 

... 

procedure TMyControl.SetMyProperty(MyProperty: integer); 
begin 
    if FMyProperty <> MyProperty then 
    begin 
    FMyProperty := MyProperty; 
    Invalidate; // for example 
    end; 
end; 

Answer 2

該屬性添加到已發佈的部分，它將使出現在Object Inspector中，像這樣：

TMyComponent = class(TComponent) 
... 
published 
    property MyProperty: string read FMyProperty write SetMyProperty; 

Answer 3

從docs：

屬性在組件的 聲明的 已發佈 聲明中聲明的聲明在設計時可在對象 Inspector中編輯。

Answer 4

不要忘了組件需要在Delphi中註冊（最好在設計時間包中），或者你根本不會在對象檢查器中看到任何東西！

我是說......我可以創建一個新的TPanel後裔稱爲TMyPanel和一個新的發佈時間屬性添加到它：

type 
    TPanel1 = class(TPanel) 
    private 
    FMyName: String; 
    { Private declarations } 
    protected 
    { Protected declarations } 
    public 
    { Public declarations } 
    published 
    { Published declarations } 
    property MyName : String read FMyName write FMyName; 
    end; 

，但如果你HAVN」該屬性將不會顯示在Object Inspector牛逼註冊使用RegisterComponent新的類：

procedure Register; 
begin 
    RegisterComponents('Samples', [TPanel1]); 
end; 

只要是完整的:-)