Scrollbox üzerinde Onclick sorunu [Çözüldü]

[beklentili]

Merhaba öncelikle herkesin bayramını kutluyorum.
Android de scrollbox üzerine yerleştirdiğim gridlayout da 16 adet buton ekliyorum ve her butona farklı farklı formları açıyorum. Buton sayısından dolayı haliyle tüm butonlar ekrana sığmıyor ve scrolbar devreye giriyor, diğer butonlara ekranı kaydırarak ulaşıyorum. Buraya kadar bir problem yok çok şükür. Ancak ekranı aşağı yukarı kaydırma işlemi sırasında butonun onclick olayına yazdığım komut devreye giriyor ve ben ekranı kaydırmaya çalışırken diğer formlar açılıyor. Bu sorunu nasıl çözebilirim, bir önerisi olan var mı?

[barisatalay]

Çözüm önermeden önce aklıma takılan yerleri sormak istiyorum.

On click butonun oncliği değil mi yoksa diğer nesnelerin mi?

[beklentili]

Butonun onclik olayı hocam

[beklentili]

Hocam yok mudur bunun bir çözümü? İki gündür yabancı forum sitelerini didik didik ettim ama tam olarak neyi aradığımı bilmediğim için ellerim boş kaldı.

[AliZairov]

İyi geceler. Neden listbox yada ListView kullanmıyorsunuz?

[beklentili]

İyi geceler hocam, neden listbox veya listview değil? çünkü bu bileşenler esnek değil ve benim istediğim yerleşim planını bu bileşenlerle yapamıyorum. İlk başta ki sorumda mevzu karışmasın diye sadece buton üzerine soruyu sordum ancak gridlayout üzerinde birden fazla layout ve her layout üzerinde çeşitli nesneler var.

[beklentili]

Mesela bir kısmın kod örneğini aşağıdaki gibi;

En altta bir adet scrollbox var ve bunun üzerinde de bir adet GridLayout ekliyorum. Ve GridLayout'a aşağıdaki kodlarla yeni alanlar ekliyorum.

procedure TProgressThread.Yeni_Katalog_Sablon_Pro;
begin
Yeni_Katalog_Sablon := TLayout.Create(Form_Kategoriler);
Form_Kategoriler.Kataloglar.AddObject(Yeni_Katalog_Sablon);

Synchronize(Yeni_Katalog_Arka_Plan_Pro);
end;

procedure TProgressThread.Yeni_Katalog_Arka_Plan_Pro;
begin
Yeni_Katalog_Arka_Plan:= TRectangle.Create(Form_Kategoriler);
Yeni_Katalog_Arka_Plan.Align:=TAlignLayout.Client;
Yeni_Katalog_Arka_Plan.Parent:=Yeni_Katalog_Sablon;

Synchronize(Yeni_Katalog_Duvar_Panel_Pro);
end;

procedure TProgressThread.Yeni_Katalog_Duvar_Panel_Pro;
begin
Yeni_Katalog_Duvar_Panel:= TLayout.Create(Form_Kategoriler);
Yeni_Katalog_Duvar_Panel.Align:=TAlignLayout.Client;
Yeni_Katalog_Duvar_Panel.Parent:=Yeni_Katalog_Sablon;
Synchronize(Yeni_Katalog_islem_Paneli_Pro);
end;

procedure TProgressThread.Yeni_Katalog_islem_Paneli_Pro;
begin
Yeni_Katalog_islem_Paneli := TLayout.Create(Form_Kategoriler);
Yeni_Katalog_islem_Paneli.Height:=25;
Yeni_Katalog_islem_Paneli.Align:=TAlignLayout.Bottom;
Yeni_Katalog_islem_Paneli.Parent:=Yeni_Katalog_Duvar_Panel;
Synchronize(Yeni_Katalog_Bilgi_Etiketi_Pro);
end;

Bu şekildeki bir yapıda her Yeni_Katalog_Sablon için en üste bir Layout yerleştiriyorum ve bunun onclick olayına bazı komutlar yazıyorum. Bu yapı sayesinde 50 tane Yeni_Katalog_Sablon oluşturduğum da scrollbox sayesinde ekranı aşağı yukarı kaydırarak oluşturduğum Yeni_Katalog_Sablon ları görüntüleyebiliyorum

Buraya kadar bir sorun yok ancak ben ekranı aşağı yukarı kaydırdığımda eğer en üste yerleştirilen Layouta dokunursam direk onclick olayı devreye giriyor. Ancak ben istiyorum ki ekranı kaydırma işlemi sırasında onclick devreye girmesin

[barisatalay]

Olay scrollboxun yüzüden. Yarın bayram tatili bitiyor şirkete geçince eğer örneği paylasırsanız üretebileceğim çözümleri denemek isterim.

[barisatalay]

Örneğinizi göndermediğiniz için böyle anlatmaya calısacam:

Butonların OnCliğindeki kodu kaldırın.

Var bloğuna "FTimeStamp: TDateTime;" şeklinde bir değişken tanımlayın.

Butonun onMouseDown eventine "FTimeStamp := Now;" tek satır kodu yazın.

Butonun onMouseUp eventine :

Kod: Tümünü seç

  if (MilliSecondOf(Now-FTimeStamp) < 200) then// 200 benim belirlediğim ve kendime göre ideal bulduğum bir sayıdır kendinize göre değiştirebilirsiniz.
  begin
    //BURAYA OnClik eventindeki kodları yazacaksınız.
  end;

Aynı yöntemi bütün butonlarda yapınız.

[beklentili]

Barış hocam müsait kalamadığım için örneği göndermek nasip olmadı ama siz sorunu çözmüşsünüz. Nasıl teşekkür etsem azdır. Allah razı olsun, çok teşekkür ediyorum. Verdiğiniz örnek işimi fazlasıyla gördü.

[barisatalay]

Benimde başıma gelmişti benzer birşey