主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2003.05.01;
下载:[xml.tar.bz2];

向下

!!!! 组件DriveComboBox 找到类似的分支


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

如果用户选择了DriveComboBox组件列表中没有的磁盘,请告诉我如何提供您自己的错误消息:
1)例如,如果驱动器或sidir中没有磁盘,如何在列表中选择适当的磁盘时处理事件?
2)此组件在其列表中显示连接到OS的所有驱动器。 如果突然在工作过程中网络驱动器断开连接,在这种情况下拦截此事件?
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]

所以我不知道如何检查磁盘的可用性?



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

尝试

结束
+ Anatoly Podgoretsky©(18.04.03 12:27)


并非所有东西都有属性......



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

要找到答案,您需要根据结果进一步参考。



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

VAR tmpS:string; isError:boolean; 开始 tmpS:= GetCurrentDir; isError:= not SetCurrentDir(“c:\”); SetCurrentDir(tmpS); if isError然后MessageDlg(“Disk H:unavailable”,mtError,[mbOk],0); 结束;



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]

问题:如果我事先不知道磁盘被称为什么字母,那该怎么办?



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

好吧......
isError:= not SetCurrentDir(“h:\”)?
尝试将当前目录更改为h:\,如果一切顺利,它会给出 (isError分别为 )



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

仍然不起作用!



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

是的麻烦,为什么你认为这不起作用?



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

从无到有写......一切正常
procedure TForm1.DriveComboBox1Change(Sender:TObject); VAR tmpS:string; tmpDisk:char的数组[0..MAX_PATH-1]; isError:boolean; 开始 tmpS:= GetCurrentDir; isError:= not SetCurrentDir((发送者为TDriveComboBox).Drive +“:\”); SetCurrentDir(tmpS); if isError然后开始 MessageDlg(“磁盘不可用”,mtError,[mbOk],0); GetWindowsDirectory(@ tmpDisk,MAX_PATH); (发件人为TDriveComboBox).Drive:= tmpDisk [0]; 结束; 结束;



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2003.05.01;
下载:[xml.tar.bz2];

楼上









内存:0.59 MB
时间:0.042 c
4-827
天狼星
2003-03-04 08:42
2003.05.01
如何使用任务栏或Office面板属性创建表单???


3-433
菲拉特
2003-04-10 20:31
2003.05.01
Firebird Base - DBGrid?


7-815
Valek
2003-03-13 05:44
2003.05.01
条形码扫描仪IT3800pdf-12


14-726
Tytus
2003-04-12 10:09
2003.05.01
舱单


1-626
anbezr
2003-04-19 13:23
2003.05.01
调用类方法





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法文
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский