Delphi 13 - Listbox içerisinde yatay kaydırma çalışmıyor

[Mr.X]

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;

[frmman]

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

[Mr.X]

(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.