Screen.DataModuleCount = 0 always in Design Time

← →
pasha_golub © (2006-08-15 13:26) [0]

В дизайн-тайме мой компонент должен пробежаться по всем формам и датамодулям для обнаружения наличия некоего компонента. Так вот в design time кол-во датамодулей всегда возвращает ноль, не важно сколько модулей наличиствует на самом деле.

1. Это проблема только Д7?
2. Можно ли это победить?

Спасибо

← →
MBo © (2006-08-15 13:56) [1]

1. Это баг, появившийся в D6
2. возможно, придется через OTA работать

← →
MBo © (2006-08-15 13:58) [2]

пример с OTA
http://groups.google.ru/group/borland.public.delphi.vcl.components.writing/browse_thread/thread/2b73db758facc190/1045a2eac43a69b2?lnk=gst&q=Greg+Saunders+&rnum=1#1045a2eac43a69b2

← →
pasha_golub © (2006-08-15 14:43) [3]

Может кому понадобиться:

Uses ToolsAPI; procedure FillComponents(ACompList: TList; ACompClass: TClass); var I, J, K: Integer; ModuleServices: IOTAModuleServices; Module: IOTAModule; Editor: IOTAEditor; FormEditor: IOTAFormEditor; RootComp: IOTAComponent; Comp: TComponent; begin If not (Assigned(ACompList) and Assigned(ACompClass)) then Exit; ModuleServices := BorlandIDEServices as IOTAModuleServices; if ModuleServices = nil then Exit; for I := 0 to ModuleServices.ModuleCount - 1 do begin Module := ModuleServices.Modules[I]; for J := 0 to Module.GetModuleFileCount - 1 do begin Editor := Module.GetModuleFileEditor(J); if Editor.QueryInterface(IOTAFormEditor, FormEditor) = S_OK then begin FormEditor.Show; RootComp := FormEditor.GetRootComponent; if RootComp <> nil then begin Comp := (RootComp as INTAComponent).GetComponent; for K :=0 to Comp.ComponentCount-1 do If Comp.Components[K] is ACompClass then ACompList.Add(Comp.Components[K]); end; end; end; end; end;

Использование:

var List: TList; i: integer; .... List := TList.Create; try FillComponents(List,TDataset); For i := 0 to List.Count-1 do ShowMessage(TDataset(List[i]).Name); finally List.Free; end;

Screen.DataModuleCount = 0 always in Design Time Найти похожие ветки