ShellBrowser Delphi Components Documentation
ContentsIndexHome
PreviousUpNext
ShellControls.TJamShellList.OnOperation

The OnOperation event occurs after the TJamShellList executed a shell operation like pasting or dragging and dropping files.

Syntax
Pascal
property OnOperation;

Use the OnOperation event to get informed when the control performed a shell operation, for example a drag and drop operation or a Paste command. You may also consider to use the events OnAddItem, OnChange and OnDeletion instead.  

Operation gives you information about the type of operation that was performed. Files contains the file or folder names, that are affected. The filenames are provided with full path, to extract the name of the file, you can use the function ExtractFileName. See TJamShellOperations for a list of operations that may occur.  

 

The following example shows a message when files were dropped in the TJamShellList, indicating if the files were moved or copied and showing their filenames with full path. If a file has been renamed by the user inside the TJamShellList, a message with the old and the new filename is shown.

procedure TMainForm.ShellListViewOperation(Sender: TObject; Operation: TJamShellOperations; Files: TFilenames; Destination: Widestring);
var s: Widestring;
i: Integer;
begin
if sopDrop in Operation then
begin
if sopCopy in Operation then
s := 'The following files have been copied to ';
if sopMove in Operation then
s := 'The following files have been moved to ';
s := s + Destination+#10#13;//linefeed
for i:=0 to Files.Count-1 do
s:=s+Files[i]+#10#13;
end;
if sopRename in Operation then
s := 'File ' + Files[0] + ' has been renamed to ' + ExtractFileName(Destination);
if Length(s)>0 then ShowMessage(s);
end;