All you have to do to enable multi selctions is to call ImageEnMView1.EnableMultiSelect := True; in OnFormCreate.
procedure TFormMain.FormCreate(Sender: TObject);
begin
ImageEnMView1.EnableMultiSelect := True;
end;
After you add images to ImageEnMView1 you should be able to select more than one image at a time using the CTRL and SHIFT keys and left mouse button click.
Then after selecting images;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
iSelectedIndex: integer;
iSelectedString: string;
begin
iSelectedString := 'Process the images you have selected' + #10#13 + #10#13 + 'Selected Indexes: '+ #10#13;
for i := 0 to ImageEnMView1.MultiSelectedImagesCount - 1 do
begin
iSelectedIndex := ImageEnMView1.MultiSelectedImages[i];
iSelectedString := iSelectedString + IntToStr(iSelectedIndex) + #10#13;
end;
// Now process the images you have selected
// In this case we are just displaying a message that shows the indexes of selected images.
ShowMessage(iSelectedString);
end;
William Miller
Search
about MultiSelecting
Posted - Jul 24 2012 : 04:59:32
