Delphi 中的屬性property（適合初學delphi）
Propery In Delphi
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
前言：
適合delphi初學者，有面向對象知識和java或者vc編程經驗人士閱讀。
一普通屬性
我們在delphi的類中常常能看到這樣的代碼：propert property 屬性名 類型名 read 字符串1 write 字符串2
這裏屬性的名字可能不同。都是這樣的格式：property 屬性名 read 字符串1 write 字符串2
我以property Left: Integer read FLeft write SetLeft;爲例子，它是Tcontrol的屬性，你可以在controls文件中找到。Left是一個Integer類型的屬性。Read申明瞭訪問該變量要訪問的變量或者方法，write申明瞭修改該變量時訪問的變量或者方法。注意：可以是變量，也可以是方法，我在後面告訴大家這是怎麼回事。這裏它是一個變量，名字叫做FLeft。出於封裝的目的，我們一般都會把這樣的變量放在private中間去，果然，在private中我們可以找到
FLeft: Integer這段代碼（出於命名的習慣，我們把這樣的變量取名爲屬性名前面加一個大寫的F）。這樣當你read該屬性時，實際上你訪問的是Fleft的值。所以你可以寫些方法來修改fleft，間接修改了left的值。然後我們再看SetLeft，這裏它是一個方法（問我怎麼知道？還是看命名規則，通常用屬性名前面加上Set），通常也會放在private中去，我們來驗證一下，我們在private中看到申明：
procedure SetLeft(Value: Integer);
和如下代碼實現：
procedure TControl.SetLeft(Value: Integer);
begin
SetBounds(Value, FTop, FWidth, FHeight);
Include(FScalingFlags, sfLeft);
end;
如果你寫了如下代碼改變left：control1.left:=23,那麼程序調用了函數SetLeft(23),SetBounds是改變區域的函數，這裏你就明白了它封裝了的好處，每次你改變left時它就會根據新的left而改變區域的大小，這個函數同時也改變了Fleft的大小，請查閱SetBounds的源代碼。
procedure TControl.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
if CheckNewSize(AWidth, AHeight) and
((ALeft <> FLeft) or (ATop <> FTop) or
(AWidth <> FWidth) or (AHeight <> FHeight)) then
begin
InvalidateControl(Visible, False);
FLeft := ALeft;
FTop := ATop;
FWidth := AWidth;
FHeight := AHeight;
UpdateAnchorRules;
Invalidate;
Perform(WM_WINDOWPOSCHANGED, 0, 0);
RequestAlign;
if not (csLoading in ComponentState) then Resize;
end;
end;
這樣外部就看起來只是通過賦值運算來改變了該屬性的值。Read和write可以是變量，或者是函數，取決於你的設計。你當然可以這樣寫: propert property 屬性名 類型名 read 變量1 write 變量2。變量1和變量2可以是相同的。你也可以這樣propert property 屬性名 類型名 read 方法1 write 方法2。任你組合。但是有2點要注意：
1. 命名規則最好按習慣來，易於閱讀。
2. 如果是變量，那麼類型要和屬性的類型一致，如果是方法，那麼入口參數要和屬性的類型一致。
二事件屬性Tevent
我們常常使用組件的事件屬性，比方說click事件，可是我們很難從表面看出它是如何調用的呢，如何觸發的呢。下面我來給你解答。
我們在屬性管理器object inspector中看到event頁onclick右邊對應了一個方法的名字。我們其實可以這樣給一個組件的事件對應上一個出來方法。以一個form爲例子Form1. OnMouseDown:=你的方法。注意方法的入口參數有講究，這裏是（Sender：TObject）
我們還是一tcontrol爲例子，我們找到這段代碼：
property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown;跟上面講的類似，不過這裏有個特殊的類型，TNOtifyEvent，是個事件類型，我們找到它的申明：
TMouseEvent = procedure(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer) of object;
可以看到，它其實就是個函數，但是藍色部分把入口參數限定了。那麼我們通過賦值Form1. OnMouseDown:=‘你的方法‘，就對應了OnMouseDown的方法。然後我們只要寫了一段攔截鼠標消息的函數，在裏面直接或間接調用FonMouseDown，那麼就把消息和處理函數對應上去了。這裏它間接調用的層數比較多，講起來比較費時間，涉及到Message類型，建議大家去看下李維的書。
以下附上間接調用過程，其實還要很多消息發生時也間接調用了，就不一一舉出來了：（
procedure WMRButtonDblClk(var Message: TWMRButtonDblClk); message WM_RBUTTONDBLCLK;//攔截消息的函數
procedure TControl.WMRButtonDblClk(var Message: TWMRButtonDblClk);
begin
inherited;
DoMouseDown(Message, mbRight, [ssDouble]);
end;
procedure DoMouseDown(var Message: TWMMouse; Button: TMouseButton;
Shift: TShiftState);
procedure TControl.DoMouseDown(var Message: TWMMouse; Button: TMouseButton;
Shift: TShiftState);
begin
if not (csNoStdEvents in ControlStyle) then
with Message do
if (Width > 32768) or (Height > 32768) then
with CalcCursorPos do
MouseDown(Button, KeysToShiftState(Keys) + Shift, X, Y)
else
MouseDown(Button, KeysToShiftState(Keys) + Shift, Message.XPos, Message.YPos);
end;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); dynamic;
procedure TControl.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Assigned(FOnMouseDown) then FOnMouseDown(Self, Button, Shift, X, Y);
end;
好處：
如果你多寫自己的類，你會發現這樣做是多麼的方便，而不會像java要寫getleft，setleft，然後把text放在private中，訪問和修改時要調用不同的方法，而delphi你都只是調用contol1.text來訪問，control1.text:=’某字符串’來修改它的值。
而在處理消息方面，基類把onclick，onmousedown這樣的屬性申明爲protected，如果你要使用，可以申明爲published就可以出現在object inspector裏面，然後方便的寫處理方法，你也可以不公開，而在ctreate函數中給它賦值，而不用像java那樣，寫listener那麼複雜。
我的研究也不深，有什麼不妥請指正：）。歡迎來信[email protected]
華中科技大學，互聯網中心實驗室(itec.hust.edu.cn)
鄔文俊
2004-12-4夜