bestlong 怕失憶論壇

標題: [Delphi]尋找所有元件,當元件有 ImeName 屬性就將之清空 [打印本頁]

---

作者: bestlong    時間: 2009-8-28 08:50     標題: [Delphi]尋找所有元件,當元件有 ImeName 屬性就將之清空

1. var
   
2.   i: integer;
   
3. begin
   
4.   for i := 0 to ComponentCount - 1 do
   
5.     if Assigned(GetPropInfo(Components[i],'ImeName')) then
   
6.       SetPropValue(Components[i], 'ImeName', '');
   
7. end;

複製代碼

---

歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/)

Powered by Discuz! X1.5