大家好, 有一個在Delphi 5 下的程序:  

procedure TdsStatusBarEditor.Edit;
var
  List: TDesignerSelectionList;
begin
  List := TDesignerSelectionList.Create;
  try
    List.Add(Component);
    GetComponentProperties(List, [tkClass], Designer, GetPropEdit);
  finally
    List.Free;
  end;
end;
 

現想將其改成Delphi 6, 查了Help檔, 僅知TDesignerSelectList須改成TDesignerSelections, 然後再透過IDesignerSelections, CreateSelectionList來修改. 但沒有範例可以參考, 自己試了又試, 試不出來. 煩請高手指導. 謝謝!