bestlong 怕失憶論壇

註 冊

找回密碼

 

 

搜索
bestlong 怕失憶論壇 › 論壇 › Delphi › [Delphi]尋找所有元件,當元件有 ImeName 屬性就將之清空 ...
查看: 3030|回復: 0
 go

[Delphi]尋找所有元件,當元件有 ImeName 屬性就將之清空 [複製鏈接]

bestlong

Rank: 9Rank: 9Rank: 9
1#
發表於 2009-8-28 08:50 |只看該作者 |倒序瀏覽 |打印
  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;
複製代碼
收藏0 分享0
我是雪龍
http://blog.bestlong.idv.tw
http://www.bestlong.idv.tw
回復 引用

舉報 返回頂部

‹ 上一主題|下一主題 ›
返回列表 發新帖 回復

Archiver|怕失憶論壇

GMT+8, 2024-4-30 17:35 , Processed in 0.024633 second(s), 10 queries .

Powered by Discuz! X1.5

© 2001-2010 Comsenz Inc.