Parent ，Owner ，Sender ，Self ，is ，as 的用法

甚麼是Parent?
Parent 就是直接包含物件本身的 container (容器)。
例如：在 form1上加上一個 button1，則 button1的 parent就是 form1，若在 form1上加上一個 panel1，然後在 panel1上再加上一個 button2，則 panel1的 parent就是 form1，而 button2 的 parent 就是 panel1。

甚麼是 Owner ?
Owner 表示物件的擁有者，owner主要負責兩件事，一是owner的記憶體空間被移除時，其所擁有的物件亦將同時被移除。二是 owner須負責載入及儲存 被擁有者的published屬性。
通常一個表單 form擁有在其上的所有元件，所以表單被移除時，其上面的元件之記憶體空間亦將被移除。
一個應用程式則擁有所有的表單，所以應用程式結束時，所有元件擁有的記憶體亦將移除。

甚麼是 sender ?
Sender就是觸發這個事件的物件。
例如：
在 form1上加上四個 button (button1, button2, button3, button4) 及一個 edit1。
button1的 onclick事件加上指令如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
   if sender is Tbutton then
      showmessage(Tbutton(sender).Caption)
   else if sender = nil then
      showmessage('no sender')
   else if sender = edit1 then
      showmessage('from edit1');
end;

button2 的 onclick事件，點選 Button1click。
button3 的 onclick 事件，寫上下列指令

procedure TForm1.Button3Click(Sender: TObject);
begin
button1Click(nil);
end;

button4 的 onclick 事件，寫上下列指令

procedure TForm1.Button4Click(Sender: TObject);
begin
button1click(edit1);
end;

edit1 的 onclick 事件，點選 Button1Click。
F9執行後，分別點選button1, button2, button3, button4, edit1，觀察其結果。

甚麼是 is ?
is 是一個運算子，用來判斷一個物件是否屬於某一種類別或其繼承者。
語法： object is class
例如： if sender is Tedit then ...
if sender is Tobject then .... //只要是物件，則永遠成立，因所有物件皆繼承 Tobject。

甚麼是 as ?
as 是一個運算子，可以將一個物件指定成某一種類別，若型態錯誤，將傳回 EInvalidCast之例外。
例如：showmessage((sender as Tbutton).caption); // 如果 sender 在執行階段為 Tbutton 則可顯示caption屬性。

甚麼是 self?
Self是指目前程式碼所屬的物件。
例如：
procedure TForm1.Button1Click(Sender: TObject);
begin
self.color:=clred; // self 表示 form1
end;