Home

Page 135
Page 135
background image

128 Глава 3

end;

 DelFName, DelFName, false) ;

end;

И снова код похож на тот, что мы уже использовали дважды. Но есть

таки две разницы:

1. Мы проверяем, находится ли какой-нибудь файл в режиме редактирова-

ния

 isEditing.

 да, ТО ВЫХОДИМ ИЗ процедуры.

2. В вызове процедуры

 в качестве второго параметра мы напря-

мую указываем константу

 FODELETE, ХОТЯ МОЖНО

 было бы указать

 что абсолютно то же самое.

В обработчике нажатия кнопки

 напишем следующий код (ли-

стинг 3.20).

на кнопке

procedure

 TObject);

var

FPath, FSrc:String;

begin

if

 then

exit;

 nil);

end;

Здесь мало строчек кода, но с ним придется разбираться. В начале происхо-

дит простая проверка на выделение. Если пользователь ничего не выбрал, то

выходим, иначе в следующей строке произойдет ошибка. Дальше мы вызы-

ваем функцию SHObjectProperties, которая отображает стандартное окно

свойств объекта. У этой функции 4 параметра.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.