Class TFormInfo (unit RplWizInfo) |
Inherits from
TObject
constructor Create(FormIntf: TIFormInterface);
- TFormInfo
destructor Destroy;
procedure GetMatchingComponents(List: TStrings; OldType: string);
Fill List with the names of all components whose type is OldType.
procedure GetSelectedComponents(List: TStrings; OldType: string);
Examine all selected components, and add to the list any components
whose type is OldType.
function ReplaceComponents(List: TStrings; NewType: string): Integer;
Replace all the components whose names are in List.
function FindComponent(CompIntf: TIComponentInterface): TCompInfo;
Look up the component represented by CompIntf.
property Component : TCompInfo
property FormInterface : TIFormInterface
fCompInfo : TCompInfo;
fInterface : TIFormInterface;
constructor Create(FormIntf: TIFormInterface);
TFormInfo
destructor Destroy;
procedure GetMatchingComponents(List: TStrings; OldType: string);
Fill List with the names of all components whose type is OldType.
procedure GetSelectedComponents(List: TStrings; OldType: string);
Examine all selected components, and add to the list any components
whose type is OldType. Also search the children of selected components.
function ReplaceComponents(List: TStrings; NewType: string): Integer;
Replace all the components whose names are in List. Replace them
with new components of type NewType. Return the number of
replacements performed.
function FindComponent(CompIntf: TIComponentInterface): TCompInfo;
Look up the component represented by CompIntf.
property Component : TCompInfo
property FormInterface : TIFormInterface
fCompInfo : TCompInfo;
fInterface : TIFormInterface;