[Delphi 7] 有沒有提供這樣的函數 |
|
尚未結案
|
|
aAlan
一般會員   發表：38 回覆：24 積分：12 註冊：2004-07-23 發送簡訊給我 |
|
|
wyndog
資深會員  發表：7 回覆：362 積分：348 註冊：2004-10-12 發送簡訊給我 |
可以用 ClassName 得到物件的類型
用 Name 得到物件的名稱
像這樣:
Memo1.Lines.Add('Self:' Self.ClassName);
Memo1.Lines.Add('Parent:' Parent.ClassName);
Memo1.Lines.Add('Sender:' Sender.ClassName);
Memo1.Lines.Add('Owner:' Owner.ClassName); or Memo1.Lines.Add('Self:' Self.Name);
Memo1.Lines.Add('Parent:' Parent.Name);
Memo1.Lines.Add('Sender:' (Sender as TComponent).Name);
Memo1.Lines.Add('Owner:' Owner.Name);
不過，要注意幾個地方:
不是每個元件都有 Parent 所以，Parent 的部份有可能出錯
另外，就是 Sender 沒有 Name 屬性，要強制轉型成 TComponent 才行
|
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
aAlan 你好 另外還可以用'='來判斷,例: If (Self = Form1) Then // => True
.... if Sender = bitbtn1 then ...... // 判斷Sender是否為bitbtn1 PS:原先貼的IS 是要判斷 是否為某個類或其子類! _______________________________________
深藍的魚，祝您好運..........連連 發表人 - chance36 於 2005/03/28 23:02:48
|
發表時間：2005-03-28 11:19:51
IP:219.84.xxx.xxx 未訂閱
系統時間：2024-07-01 2:49:13
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |