不
不菜
Unregistered / Unconfirmed
GUEST, unregistred user!
请问一下fixed,floppy,cdrom,ramdisk,network这些控件在哪个页卡下,谢谢<br>procedure TFrmMain.FormCreate(Sender: TObject);<br>var<br> Drive: Char;<br> AddedIndex: Integer;<br>begin<br> {利用一个循环依次检测从a到z的驱动器是否存在以及驱动器的类型。<br> 利用了Windwos API函数GetDrivetype, 如果驱动器不存在则返回0,<br> 否则返回驱动器的类型(DRIVE_REMOVABLE、DRIVE_FIXED、DRIVE_REMOTE)。<br> 根据驱动器类型,添加不同图形对象到DriveTabSet中。在添加过程中,<br> DriveTabSet的TabIndex被设置为当前驱动器。}<br> for Drive := 'a' to 'z' do<br> begin<br> case GetDriveType(PChar(Drive + ':/')) of<br> DRIVE_REMOVABLE:<br> AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Floppy.Picture.Graphic);<br> DRIVE_FIXED:<br> AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Fixed.Picture.Graphic);<br> DRIVE_CDROM:<br> AddedIndex := DriveTabSet.Tabs.AddObject(Drive, CDRom.Picture.Graphic);<br> DRIVE_RAMDISK:<br> AddedIndex := DriveTabSet.Tabs.AddObject(Drive, RamDisk.Picture.Graphic);<br> DRIVE_REMOTE:<br> AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Network.Picture.Graphic);<br> else<br> AddedIndex := 0;<br> end;<br> if UpCase(Drive) = FileList.Drive then<br> DriveTabSet.TabIndex := AddedIndex;<br> end;<br>end;<br>请问一下fixed,floppy,cdrom,ramdisk,network这些控件在哪个页卡下,谢谢