各位前輩好,我想要作一個幾種不同的物件使用共同的click事件,程式如下 procedure TForm1.Bclick(Sender: TObject); begin if sender is tbutton then begin showmessage('sender is button');// end; if sender is tlabel then begin showmessage('sender is tlabel');// end; end; 因為可能是好多個不同元件組成,如果每一個sender都要判斷元件類型會較麻煩,我想把bclick簡化 但都不能run,程式如下 procedure TForm1.Bclick(Sender: TObject); var s:tpersistentclass; begin s:=tbutton; s(sender).caption:='tbutton'; 想請教前輩指點 謝謝 sam

Hi:

procedure TForm1.Button3Click(Sender: TObject);
begin
    IF Sender.ClassNameIs('TButton') THEN
        (Sender AS TButton).Caption := Sender.ClassName
    ELSE IF Sender.ClassNameIs('TLabel') THEN
        (Sender AS TLabel).Caption := Sender.ClassName
    ELSE IF Sender.ClassNameIs('TEdit') THEN
        (Sender AS TEdit).Text := Sender.ClassName;
    ShowMessage('Sender is '   Sender.ClassName);
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

check this http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28622

試了前輩的做法很好用,可是如果一開始不知道觸發事件的物件是何種元件就無法用,例如我又動態產生一個maskedit物件,我需要在程式碼加上 ELSE IF Sender.ClassNameIs('Tmaskedit') THEN (Sender AS Tmaskedit).Text := Sender.ClassName; 才能run; 書上有說到可用Tbutton(sender).caption:='myobject'; 如果將Tbutton設為s s:=tbutton; s(sender).caption:='myobject'; 只要改變s就可做出許多不同的變化 不知是否可行 請前輩幫忙 謝謝 sam

不同的元件有不同的property, 因此須看你在此共用之procedure須用到什麼. 例如只用到Caption和ClassName 由onlinehelp你可以看到, Caption在TControl定義, classname則在TObject定義, 故如FishMan所寫之Sample可簡單寫成

if Sender is TControl then  //只要是TControl就有Caption property
  TControl(Sender).Caption:=Sender.className;

NOTE: 將Sender轉型成TControl即可存取其 Caption之property 如果更廣泛的使用, 可uses Typinfo後用GetPropValue等function來達到 同上例, 可改為

if GetPropInfo(Sender, 'Caption') <> nil then//表示Sender有Caption這個property
  SetStrProp(Sender,'Caption',Sender.classname);

充分利用typinfo.pas中這些function, 可使你的程式彈性大很多 [NOTE]Tbutton(sender).caption:='myobject'; 如此比較字串, 千萬小心大小寫問題, 最好用CompareText

很好用,又多學了一些, 謝謝ccchen版主及幾位前輩 謝謝 sam