Example: |
The following code snippet shows how to use the object selection dialog. It opens the dialog, showing the objects of the main data container, with the objects 2, 14 and 15 being pre-selected:
var
i : integer;
nobj : integer;
oix : integer;
SelObjs : TIntArray;
begin
if SelectObjects (DStore, true, [2,14,15], 'Select objects', SelObjs) = 0 then
begin
nobj := length(SelObjs);
for i:=1 to nobj do
begin
oix := SelObjs[i-1];
// do something with the object oix
end;
end;
end;
|