+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Mobil Platform - FireMonkey (FMX) (https://www.delphican.com/forumdisplay.php?fid=7)
+--- Konu Başlığı: Delphi 13 - Listbox içerisinde yatay kaydırma çalışmıyor (/showthread.php?tid=8195)
Delphi 13 - Listbox içerisinde yatay kaydırma çalışmıyor - Mr.X - 18-10-2025
Merhaba,
Delphi 13 ile fark ettiğim değişikliklerden bir diğeri Listbox bileşeninin ListStyle özelliğinin Horizontal seçilmesi durumumda Windows platformunda işlevsiz kalması.
Geçici çözüm olarak kullanabilirsiniz.
procedure TForm1.ListBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
begin
{$IF DEFINED(MSWINDOWS)}
if ListBox1.ListStyle = TListStyle.Horizontal then
begin
ListBox1.ViewportPosition :=
PointF(ListBox1.ViewportPosition.X - (WheelDelta / 4), ListBox1.ViewportPosition.Y);
Handled := True;
end;
{$ENDIF}
end;
Delphi 13 - Listbox içerisinde yatay kaydırma çalışmıyor - frmman - 18-10-2025
Embarcadero D13 de büyük bir tadilata girdi herhalde. "Evi kullanabilirsiniz" dediler ama ince işçilikte gözden kaçan çok fazla şey var
Cvp: Delphi 13 - Listbox içerisinde yatay kaydırma çalışmıyor - Mr.X - 18-10-2025
(18-10-2025, Saat: 11:55)frmman Adlı Kullanıcıdan Alıntı: Embarcadero D13 de büyük bir tadilata girdi herhalde. "Evi kullanabilirsiniz" dediler ama ince işçilikte gözden kaçan çok fazla şey var
Ayakkabı fiyakalı ama çorap delik.