ListView kayıtları seçmek-[ÇÖZÜLDÜ]

[AliZairov]

Merhaba. Player projem bitiyo çok şükür. Tüm emeği geçenler teşekkür ediyorum. Şöyle bir sorun var. Çözüm bulamadım.

Şu benim kanallar. Klik yapınca çalışıyolar.



Istediğim + - sistemi ile otomatik kanallarda geçiş yapmak.



Bunu nasıl yapa bilrim selected propertisi yok index de yalnız seçili oldukta çalışıyo.

[brs]

Selam, daha önce ben bu kodu rastgele olarak ListView seçim yaptırmak için kullanıyordum, belki sana fikir verebilir kolay gelsin

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
var
  Uret: Real; // Uses Math Ekle
  Basla, Adet, i: integer;
  Sonuc: String;
begin
  Basla := 0;
  Adet := ListView2.Items.Count;
  Uret := RandomRange(Basla, Adet);
  Sonuc := FloatToStr(Uret);
  ListView2.Items[StrToInt(Sonuc)].Checked := True;
end;

[AliZairov]

Iyi geceler. Teşekkürler. Verdiğiniz örnekden yola çıkarak küçük bir seçme ve kontrol fonk yazdım.

Kod: Tümünü seç

procedure SetItem(Index: Integer);
begin
  if (Index < 0) then exit;
  if (Index > Main.ChannelList.Items.Count) then exit;
  Main.ChannelList.ItemIndex := Index;
end;

function GetItem: Integer;
begin
  Result := Main.ChannelList.ItemIndex;
end;