Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;



Anatoly Podgoretsky   (2002-04-09 15:47) [1]

Вынести мз блока IF, а то у тебя по условию



Alx2   (2002-04-09 15:54) [2]

:))



inko   (2002-04-09 15:56) [3]

То есть так:

DeleteFile(pChar(FileInfo.Name)) = True then

А ошибки не будет ?



Darkwin   (2002-04-09 16:10) [4]

То есть так:

DeleteFile(pChar(FileInfo.Name);
ShowMessage( "Ok !" );

И ошибки не будет .



Anatoly Podgoretsky   (2002-04-09 16:12) [5]

Darkwin © (09.04.02 16:10)
Вот, вот именно без IF тогда будет каждый раз, а может тебе нужно выводить сообщение только тогда когда ошибка?



inko   (2002-04-09 16:38) [6]

А если только тогда когда ошибка?



Darkwin   (2002-04-09 16:49) [7]

if DeleteFile(pChar(FileInfo.Name)) <> True then

ShowMessage( "Ok !" );




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
14-69989          Builder               2002-03-15 08:13  2002.04.22  
Круговой обзор


1-69857           Катерина              2002-04-06 15:52  2002.04.22  
Фреймы


4-70059           Swinger               2002-02-18 20:30  2002.04.22  
Последовательный запуск двух программ.


1-69929           Veselov               2002-04-09 21:33  2002.04.22  
Adobe Acrobat или как открыть с его поиощью файл...


1-69897           ymin                  2002-04-09 13:56  2002.04.22  
Есть ли Help в минимальной установке Delphi 6?