請問各位先進，有什麼方法可以尋找在一個form上所有的物件中具有imename屬性的物件，而不用一個一個寫？

請參考這篇: http://delphi.ktop.com.tw/topic.php?topic_id=20204    

uses typinfo;
//.....
procedure TForm1.Button1Click(Sender: TObject);
var
  PropInfo: PPropInfo;
  i: integer;
begin
  for i := 0 to ComponentCount-1 do
  begin
    PropInfo := GetPropInfo(Components[i].ClassInfo,'imename');
    if PropInfo <> nil then
      showmessage(Components[i].Name);
  end;
end;

發表人 - timhuang 於 2003/04/18 00:29:50

timhuang謝謝您的回答， 另外我想再請問若想要修改這個物件imename的屬性值要怎麼寫？ 依我所知若我要改tedit的imename屬性要用下面的寫法 tedit(Components[i]).imename = '注音'; 但是一個form上有很數種類別的物別，這樣就要一種一種的寫，請問有比較好的寫法嗎？ 謝謝幫忙！

可以利用 SetStrProp Procedure 來進行設定: SetStrProp(Components[i], PropInfo, '中文 (繁體) - 注音');    

procedure TForm1.Button1Click(Sender: TObject);
var
  PropInfo: PPropInfo;
  i: integer;
begin
  for i := 0 to ComponentCount-1 do
  begin
    PropInfo := GetPropInfo(Components[i].ClassInfo,'imename');
    if PropInfo <> nil then
      //  showmessage(Components[i].Name);
      SetStrProp(Components[i], PropInfo, '中文 (繁體) - 注音'); // 這是 win2000 的注音
  end;
end;

Help 裡也沒有的資料耶 很有實用性，值得一讚。

timhuang非常謝謝您的回答，我試了以後真的覺得很好用，而且又多學了一個很棒的方法，真是非常感謝。