Listbox item click sorunu

[yakupbaser]

Merhabalar,

Xe7 de listboxtaki tüm itemlerın onclick eventını kullanarak bir uygulama hazırladım ve şöyle bir sorunla karşılaşıyorum.
Parmağımızla sürükleyip listboxun alt satırlarına gitmek istediğimizde parmağımızın dokunduğu itemın istemeden onclick metodunu çağırmış oluyoruz.
Bunun önüne geçmek için ondblclick kullanayım dedim. Malum firemonkeyde mobil için double click çalışmıyor ve bu bug henüz fixlenmiş değil.
Ben de manuel olarak kodlarla double click metodu geliştirdim fakat istediğim performansı vermiyor.

Bu istemeden tıklama olayına en stabil nasıl çözüm geliştirebiliriz? Listboxun onmousedown eventındaki TShiftState le ya da farklı bir yöntemle sorunu çözebilmemiz mümkün mü?

[barisatalay]

Değişik bir çözüm önerebilirim.

formun private bölümüne "FTimeStamp: TDateTime;" şeklinde bir değişken tanımlayın ve geliştirmenize şu şekilde devam edin.

Listbox itemin onMouseDown eventine:

Kod: Tümünü seç

FTimeStamp := Now;

Aynı itemin onMouseUp eventine:

Kod: Tümünü seç

  if (MilliSecondOf(Now-FTimeStamp) < 200) then
  begin
    //Tıklanınca yapılmasını istediğiniz şeyler.
  end;

Biz burada ne yapmıs olduk saniyenin 10/2 si bir zaman aralığında Listboxun o iteminden parmak havaya kalkarsa tıklanma olayını gerçekleştirmesini istedik. Yani test edebilirsiniz kaydırırken bu zaman aralığına düşmemesi gerekir istediğiniz ölçüde değiştirebilirsinizde şirketteki projemizde bu şekilde çözüm getirebildik.

[yakupbaser]

teşekkürler,

Double click olayı için de benzer bir çözüm üretmiştim:

Kod: Tümünü seç

//global değişkenler
var 
dbl: integer;
time: TDateTime;

procedure TForm2.btn1Click(Sender: TObject); 
begin
  // ondblclick
  if dbl mod 2 <> 1 then
  begin
    Inc( dbl );
    time := GetTime;
    Exit;
  end;
  if MillisecondsBetween(  GetTime, time ) > 400 then
  begin
    dbl := 0;
    Exit;
  end;

  Inc( dbl ); 
  // İşletmek istediğimiz kodlar buraya

[mustafasoy]

bende buna benzer bir sorunu farklı bir şekilde çözdüm listview için edit mode dışında ise itemclick çalışsın aksi taktirde çalışmasın diye

procedure TMainScreen.lw_spamlistItemClick(const Sender: TObject;
const AItem: TListViewItem);
begin
if not lw_spamlist.EditMode=true then
ShowMessage(lw_spamlist.Items[lw_spamlist.ItemIndex].Detail);
end;

[yakupbaser]

Baris hocam çözüm kısmen işe yaradı hatta biraz daha düşürdüm 1.3 milisaniye yaptım. Fakat şu var Whatsappi inceledim. listbox iteminde 1 milisaniye bile kalsam click metodunu çağırmıyor. Demekki daha sağlıklı bir çözümü olmalı. Bulabilirsem burdan paylasirim

[mrmarman]

Zaman tutma işlemini son tıklanan item indexini de tutarak güçlendirebilir, istediğiniz sonuca ulaşabilirsiniz.

Son item değişirse zamanı yenisiyle resetlersiniz, aynı item tıklanmış ise zamanı gözeterek çift tıklama olarak yorumlayabilirsiniz.

[aytunccankir]

Kod: Tümünü seç

procedure TfrmMain.btnBilisimClick(Sender: TObject);
begin
TabActionBrowser.ExecuteTarget(nil);
browser.Navigate('http://xxxx);
end;

Benim kullandıklarım bunlar. on modunu engellemenin başka bir yolu var mı ? Ben sanırım yapamadım.