procedure (Sender:Tobject); begin Sender.Classname; ^^^^^^^^^^^^^^^^請問有辦法利用sender所得到的classtype去完成下列的動作嗎?? Tbutton(FindComponent('test')).Caption:='test1'; ^^^^^^^這裡如果不用指定的而是由sender所得到的可以完成嗎? end;

procedure (Sender:Tobject);
begin
  if sender is tbutton then 
     tbutton(sender).caption:='test';
end;

Hi Mine 您好, 試試這個:

Uses TypInfo;    procedure SetCaption(Sender : Tobject);
begin
   if GetPropInfo(Sender.ClassInfo, 'Caption') <> nil then
      SetPropValue(Sender, 'Caption', 'Changed');
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
   SetCaption(Label1);
   SetCaption(Button1);
   SetCaption(Memo1);
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

謝謝二位大大的回答 可能是我詞不達意 讓hahalin誤會了 miles 答的才是我想問的^^" 看來不只練英文 中文也得複習了!!thx 我的範例是這樣的 procedure Tform1.SetCaption(Sender : Tobject); begin if GetPropInfo(Sender.ClassInfo, 'Caption') <> nil then SetPropValue(Sender, 'Caption', 'Changed'); end; procedure TForm1.Button1Click(Sender: TObject); begin setcaption(sender); end; -------------------------------------------------------- 搞不懂!搞不懂!!永遠都搞不懂!!