Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизСообщения. Найти похожие ветки
← →
inko (2002-04-09 15:43) [0]При нажатии на кнопку я вызываю эту функцию... Как можно сделать так, чтобы сообщение "Ok !"появлялось всякий раз, когда пользователь нажимает кнопку несколько раз подряд. В данном случае оно появляеться один раз, а последующие нажатия игнорируються.
Function DelNormalFile(FileName : string) : string;
var
FileInfo: TSearchRec;
r : Integer;
begin
r := FindFirst(Filename, FaAnyfile, FileInfo);
while r = 0 do begin
if ((FileInfo.Attr and FaDirectory <> FaDirectory) and
(FileInfo.Attr and FaVolumeId <> FaVolumeID)) then
if DeleteFile(pChar(FileInfo.Name)) = True then
ShowMessage( "Ok !" );
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.008 c