一般事件如OnPaint等都有 Sender:TObject， 請問 如何在函數中傳遞物件，謝謝. 如 function test(var ok:TObject):Boolean; begin end; 如何使用呢? test(button1);....????

function test(var ok:TObject):Boolean; 不需要用var了, Delphi之object都是call by reference, 不用var, 在函數中更改其值會反應至呼叫者

function test(ok:TObject):Boolean;
begin
  if ok is TButton then
    showmessage(TButton(ok).name);
end;    使用時
test(button1);
test(Lable1);

由於function test之參數宣告為TObject, 因此所有物件均能傳入, 但也由於ok是TObject, 只可以直接存取Tobject之property, 例如name就不是TObjcet之property, 故你需要轉型, 如上,轉型成TButton後就可access TButton之所有property. 如果你的函數不需要接受所有類別, 永遠只接受TButton, 你可以改成

function test(ok:TButton):Boolean;
begin
  showmessage(TButton(ok).name);
end;

此時就不須轉型了 再舉個例 function (xx:TCustomedit):Boolean; 此時, 此函數可接受TEdit,TDBEdit,TMemo,TRichEdit,TDBMemo...,連DBGrid中之InplaceEditor也可以,因為他們均繼承至TCustomEdit. 所有TCustomEdit之propery在此函數中均可用. 因此了解元件樹是很重要的 發表人 - ccchen 於 2002/12/21 20:04:12

回答的很仔細清楚,謝謝!