Форум: "Основная";
Поиск по всему сайту: 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.013 c
4-66412           AlexandrH             2001-11-19 11:20  2002.01.21  
Как получить дескриптор активного окна.


3-66205           fishka                2001-12-18 12:10  2002.01.21  
Поле типа Identity - как задать значение, с которого начинать нумерацию?


7-66375           chira@kras.ru         2001-10-02 13:16  2002.01.21  
Подсказки (Hints)


3-66196           Joe                   2001-12-18 11:49  2002.01.21  
Interbase


14-66356          Крутов Алексей        2001-11-23 12:11  2002.01.21  
Password для Delphi4