Jo, Danke...genau das wollte ich haben (Hätte ich auch eigentlich selber drauf kommen müssen o_O)! Allerdings habe ich mir keine Komponente erstellt, da ich die Listbox wohl nur für dieses eine Projekt benötigen werde. Habe stattdessen einen eigenen "Type" deklariert (nur für die, die das selbe Problem haben, wie ich es hatte^^):
Delphi-Quellcode:
type
TListboxEx = class(TListBox)
private
procedure WMNCCalcSize(var Msg: TWMNCCalcSize); // keine ScrollBar
message WM_NCCALCSIZE;
procedure WMMouseWheel(var Msg: TWMMouseWheel); // Scrollen trotzdem aktivieren
message WM_MOUSEWHEEL;
procedure WMVSCROLL(var Msg: TWMScroll); // aufs Scrollen mit der Maus reagieren
message WM_VSCROLL;
procedure WMKeyDown(var Msg:TWMKey); // aufs Scrollen mit den Tasten reagieren
message WM_KEYDOWN;
end;
Vielen Dank Stevie für die Hilfe und Inspiration!