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




Вниз

TDriveComboBox 


Грифон   (2001-12-29 09:43) [0]

При выборе сменного диска, которого нет в устройстве, вылетает сообщение "I/O error" Помогите мне его перехватить и вывести свой мессадж.



SergVlad   (2001-12-29 09:53) [1]

Вот так..

procedure TAutoForm.btnCheckClick(Sender: TObject);
var
ErrorMode: word;
begin
ErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(1) = - 1 then
ShowMessage( "No disk in drive A" )
else
begin
{ Your code }
end;
finally
SetErrorMode(ErrorMode);
end;
end;



panov   (2001-12-29 10:00) [2]

(из конференции):
Перед проверкой наличия диска:
{$I-}
и обрабатывай ошибку.
//после проверки
{$I+}



Грифон   (2001-12-29 19:24) [3]

Так, а если в TDriveComboBox есть выбор между "A" и несколькими СВ-Rom"ами, то как выяснить что выбрал юзер и после выдать соответствующее сообщение. Пытался в обработке OnClick сделать TDriveComboBox.Drive - но он определяет текущий диск, а не тот который пытаемся выбрать, помогите, плз.



SergVlad   (2001-12-29 22:58) [4]

Ну и в чем проблема ?
Используй приведенный код в обработчике OnChange.
В DiskSize(..) указывай число
0 - текущий
1- A
2- B
и т.д.
получая его из DriveCbx.Drive



Грифон   (2002-01-02 17:24) [5]

В том-то и дело, что до обработчика OnChange уже происходит ошибка.




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




Наверх





Память: 0.72 MB
Время: 0.032 c
4-66414           Русский               2001-11-19 17:43  2002.01.21  
Людииии ааааааа Help :)))


4-66415           Константин            2001-11-17 21:50  2002.01.21  
По(ту)сторонние звуки


1-66232           StelZ                 2002-01-03 03:25  2002.01.21  
Отсечь заголовок


1-66311           Дмитрий Д.            2001-12-27 12:28  2002.01.21  
как загрузить текстовый файл в ричедит, например ? (файл в досовской кодировке)


14-66360          Феликс                2001-11-23 13:03  2002.01.21  
Жизнь все лучше и лучше?