TIEFolderChangeEvent

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;

See Also

◼OnFolderChanging
◼Folder

---