ImageEnView1.Proc.PasteFromClipboard(iecpLayer);

ImageEnView1.MouseInteractLayers := ImageEnView1.MouseInteractLayers + [mlMoveLayers, mlResizeLayers];
ImageEnView1.Proc.PasteFromClipboard(iecpLayer);

ImageEnView1.Proc.PasteFromClipboard(iecpLayer);
ImageEnView1.CurrentLayer.Selected := False;

 

---

If mlCreate*Layers is removed, then technically it would be possible, but we don't allow it because we did not consider it a likely combination.

---

procedure TForm1.imgMainLayerNotify(Sender: TObject; layer: Integer; event: TIELayerEvent);
begin
  if event = ielLeftClicked then
  begin
    if layer <> 0 then
    begin
      //CodeSite.Send('TForm1.imgMainLayerNotify: clicked on layer');
      imgMain.MouseInteractLayers := imgMain.MouseInteractLayers + [mlMovelayers, mlResizeLayers];
      imgMain.Layers[layer].Selected := True;
    end
    else
    begin
      //CodeSite.Send('TForm1.imgMainLayerNotify: clicked on background');
      imgMain.LayersDeselectAll;
      if not (miSelect in imgMain.MouseInteractGeneral) then // if SELECTION-MODE has been switched off then...
        imgMain.MouseInteractGeneral := imgMain.MouseInteractGeneral + [miSelect]; // ...restore SELECTION-MODE
    end;
  end;
end;

procedure TForm1.imgMainKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_DELETE:
      begin
        if imgMain.LayersSelCount(False) > 0 then
          imgMain.LayersRemove();
      end;
  end;
end;