maison
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Archive actuelle: 2003.05.01;
Télécharger: [xml.tar.bz2];

vers le bas

!!!! Composant DriveComboBox Trouver des branches similaires


Kotenochek   (2003-04-18 12:21) [0]

Подскажите, пожалуйста, как выдать свое собственное сообщение об ошибке, если пользователь выбрал диск, который не доступен в списке компонента DriveComboBox:
1) например если в дисководе или сидироме нет диска, то как обработать событие при выборе соответствующего диска в списке?
2) Данный компонент показывает в своем списке все диски которые подключены в ОС. Если вдруг в процессе работы отключится сетевой диск как в этом случае это событие перехватить?
3) Какое свойство определяет что в списке компонента именно такие диски?



Anatoly Podgoretsky   (2003-04-18 12:27) [1]

Showmessage



Dms   (2003-04-18 12:29) [2]

Возможно надо обработать OnChange с последующей самостоятельной проверкой доступности диска.



Kotenochek   (2003-04-18 12:37) [3]

Je ne sais donc pas comment vérifier la disponibilité du disque?



Palladin   (2003-04-18 12:41) [4]

Essai
sauf
fin
+ Anatoly Podgoretsky © (18.04.03 12:27)


не на все на свете есть свойства...



Anatoly Podgoretsky   (2003-04-18 12:44) [5]

Pour le savoir, vous devez vous tourner vers lui et plus loin, en fonction du résultat.



Dms   (2003-04-18 12:45) [6]


var
tmpS : string;
isError : boolean;
begin
tmpS:=GetCurrentDir;
isError:=not SetCurrentDir("c:\");
SetCurrentDir(tmpS);

if isError then MessageDlg("Диск H: недоступен", mtError, [mbOk], 0);
end;



Dms   (2003-04-18 12:46) [7]

isError:=not SetCurrentDir("h:\");

конечно надо так :)



Kotenochek   (2003-04-18 12:50) [8]

Не могли бы Вы (Dms) объяснить строчку isError:=not SetCurrentDir("c:\")?



Kotenochek   (2003-04-18 12:51) [9]

Question: si je ne sais pas à l’avance quelles lettres les disques sont appelées, puis quoi?



Dms   (2003-04-18 12:53) [10]

ну что ж ...
isError:=not SetCurrentDir("h:\")?
пытается изменить текущую директорию на h:\ и если все проходит удачно, то выдает vrai (isError, соответственно, faux)



Kotenochek   (2003-04-18 13:10) [11]

Ça ne marche toujours pas!



Anatoly Podgoretsky   (2003-04-18 13:12) [12]

Oui ennuis, pourquoi tu penses que ça ne marche pas?



Dms   (2003-04-18 13:16) [13]

от нечего делать написал ... все работает

procedure TForm1.DriveComboBox1Change(Sender: TObject);
var
tmpS : string;
tmpDisk : array [0..MAX_PATH-1] of char;
isError : boolean;
begin
tmpS:=GetCurrentDir;

isError:=not SetCurrentDir((Sender as TDriveComboBox).Drive+":\");
SetCurrentDir(tmpS);

if isError then begin
MessageDlg("Диск недоступен", mtError, [mbOk], 0);
GetWindowsDirectory(@tmpDisk, MAX_PATH);
(Sender as TDriveComboBox).Drive:=tmpDisk[0];
end;
end;



Pages: 1 branche entière

Forum: "Main";
Archive actuelle: 2003.05.01;
Télécharger: [xml.tar.bz2];

à l'étage









Mémoire: 0.59 MB
Heure: 0.032 c
14-749
pierre
2003-04-14 15:45
2003.05.01
La loi sur la graisse ...


1-573
VadimS
2003-04-18 12:42
2003.05.01
Vérifier le type de variable


1-633
AlexAvz
2003-04-18 16:53
2003.05.01
Documents à fenêtres multiples


1-561
zDEUSz
2003-04-16 21:53
2003.05.01
Fermer l'application de la console


6-662
nikb
2003-03-05 01:07
2003.05.01
Connectez ClientSocket à ServerSocket





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol