Declaration

TIEFolderChangeEvent = procedure(Sender: TObject; var NewFolder: String; var Allow: boolean) of object;

Description

Used by OnFolderChanging whenever the Folder is being changed.

sNewFolder specifies the new folder. Set bAllow to false to prevent the folder being opened.

Example

procedure TMyForm.IEFolderMView1FolderChanging(Sender: TObject; var NewFolder: String; var Allow: boolean);
begin
  // Do not allow user to change from C:\
  if pos( 'C:\', Uppercase( sNewFolder )) = 0 then
  begin
    Allow := False;
    MessageBeep( MB_ERROR );
  end;
end;

---