Форум: "Система";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Вниз

CD-ROM   Найти похожие ветки 

← →
Hel   (2001-12-28 07:22) [2]

>Dimaond Cat
Спасибо за ответ, я даже попробовала один код, приведенный ниже, но он выдает ошибку Tab index out of bounds. Я просто с этим компонентом TabSet не работала раньше

var
Drive: Char;
AddedIndex: Integer;
begin
DriveTabSet.TabIndex:=0;
for Drive := "A" to "Z" do
begin
case GetDriveType("Drive" + ":/") of
DRIVE_REMOVABLE:
AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Floppy.Picture.Graphic);
DRIVE_FIXED:
AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Fixed.Picture.Graphic);
DRIVE_REMOTE:
AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Network.Picture.Graphic);
end;
if UpCase(Drive) = UpCase(DirectoryOutline.Drive) then
DriveTabSet.TabIndex := AddedIndex;
end;

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c