Delphi Can

Merhaba;

Listboxsa SearchBox1 ekledim, fakat search işlemi tam olarak gerçekleşmiyor.


Stylede oluşturduğum text üzerinden verileri listboxsa ekliyorum. Eklenen bu veriler searchbox ile filter yapmak istediğimde ise
eklenen kayıtlar listelenmiyor bu durum neden olabilir acaba?

procedure TfrmCustomList.Button2Click(Sender: TObject);
var
  Item: TListBoxItem;
begin
  Item := TListBoxItem.Create(Nil);
  Item.Parent := ListBox1;
  Item.StyleLookup := 'CustomItem';
  ListBox1.BeginUpdate;
  try
    begin
       Item.StylesData['xName'] := 'Vatan lastik';
      Item.StylesData['xOnay.OnClick'] := TValue.From<TNotifyEvent>(DoOnayClick);
      // Caption := IntToStr(ListBox1.Count) + ' Kayıt adeti';
    end;
  finally
    ListBox1.EndUpdate;
  end;
end;

Merhaba,
Naçizhane tavsiyem, Listbox kullanım zorunluluğunuz yoksa; TListView kullanın.
ListView bileşeninin SearchVisible özelliğini etkinleştirerek, tek satır kod yazmadan, doğal filitre özelliğini kullanabilirsiniz.

(23-08-2018, Saat: 11:58)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: [ -> ]Merhaba,
Naçizhane tavsiyem, Listbox kullanım zorunluluğunuz yoksa; TListView kullanın.
ListView bileşeninin SearchVisible özelliğini etkinleştirerek, tek satır kod yazmadan, doğal filitre özelliğini kullanabilirsiniz.

Teşekkür ederim.


Haftalardır listvewle boğuşuyorum bir türlü çözemediğim bir sorundan dolayı listbox kullanmak zorunda kalıyorum.
Listview bırakmamın sebebi lisvewde drag anad drop yani ALLOWDRAG olmaması nette ve forumda yüzlerce makale okudum, fakat listview drag and drop stabil değil.