ImageEn, unit iexFolderMView |
|
TImageEnFolderMView.OnFolderChanging
Declaration
property OnFolderChanging: TIEFolderChangeEvent;
Description
Occurs whenever the
Folder is being changed.
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;