Das Scrollen einer ListBox oder einer ListView verhindern

[RWarnecke]

Hallo zusammen,

wie kann ich es realisieren, dass ich das Scrollen in einer TListBox oder TListView unterbinden kann ? Gibt es dazu eine Eigenschaft oder muss ich vielleicht über die Gestures gehen ?

[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;

[RWarnecke]

Hallo Thomas,

danke für Deine Antwort. Ich möchte das ganze unter einer Firemonkey Mobile Anwendung machen. Hätte ich vielleicht dazuschreiben sollen. :oops:

[Union]

Wenn Du HitTest auf False setzt sollte das gehen.

[Der schöne Günther]

Mit

Delphi-Quellcode:

HitTest = False

kann man aber nichts mehr anwählen und die Scrollbar weiterhin bedienen.

Ich kann mir das praktische Szenario noch nicht vorstellen- Du willst aber weiterhin Einträge darin anwählen können, oder? Was ist, wenn jemand den letzten Eintrag, der nur zur Hälfte sichtbar ist, anwählt? Dann wird ja auch ein Stück runtergescrollt, sodass der Eintrag vollständig sichtbar ist.

[RWarnecke]

Hallo zusammen,

danke für eure Antworten. Die Eigenschaft HitTest war genau das was ich gesucht habe.

Ein Anwendungsfall bei mir war, dass ich gerne in einem ListBox Item zwei Spalten mit jeweils zwei Zeilen haben wollte und ich diese Zeilen unabhängig von einander mit Daten bedienen wollte.