ListView item checked sorunu

[saygıner]

Merhabalar Listview'de sadece DRIVE_FIXED yerel sürücüleri seçili nasıl yapabilirim
checked yapınca tümünü seçiyor.

Kod: Tümünü seç

function TMainMenu.CreateDrives(ListView: TListView): boolean;
  var
  S : string;
begin
  ListView.Clear;
      with ListView.Items.Add do begin
        Caption := S;
        if GetDriveType(PChar(S)) = DRIVE_RAMDISK then ImageIndex := 3;
        if GetDriveType(PChar(S)) = DRIVE_FIXED then ImageIndex := 3;
        if GetDriveType(PChar(S)) = DRIVE_REMOTE then ImageIndex := 0;
        if GetDriveType(PChar(S)) = DRIVE_CDROM then ImageIndex := 1;
        if GetDriveType(PChar(S)) = DRIVE_REMOVABLE then ImageIndex := 2;
      end;
      S := '';
    end;
  end;

[SimaWB]

Kod: Tümünü seç

if GetDriveType(PChar(S)) = DRIVE_FIXED then 
begin
  ImageIndex := 3;
  Checked := True;
end;

[saygıner]

çok teşekkürler.iyi bu forumu buldum admine sayğılar sunarım.