Das Scrollen einer ListBox oder einer ListView verhindern

[Bummi]

Vielleicht hilft die das weiter:

Delphi-Quellcode:

type

  TListBox=Class(StdCtrls.TListBox)
  private
    procedure WndProc(var Message: TMessage);override;
  End;
  TForm5 = class(TForm)
    ListBox1: TListBox;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

{ TListBox }


procedure TListBox.WndProc(var Message: TMessage);
begin
  if (Message.Msg <> WM_VSCROLL)
     and (Message.Msg <> WM_KeyDown) then   inherited;
end;