Форум: "Основная";
Поиск по всему сайту: 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.029 c
3-66208           Vygantas              2001-12-18 13:10  2002.01.21  
MySQL и D6


1-66252           Gol2000               2002-01-02 08:43  2002.01.21  
Как в TRichEdit у отдельных строк поменять цвет фона (цвет бумаги) ?


6-66330           DARS73                2001-10-25 17:51  2002.01.21  
INTERBASE И ПОДКДЮЧИТЬ EXEL В DELPHI


7-66380           Lizard                2001-09-30 14:03  2002.01.21  
Как к письму приаттачить не один, а несколько файлов ?


4-66416           absent                2001-11-16 07:52  2002.01.21  
Проблемы с EM_GETTEXTRANGE В Richedit 3.0