Einzelnen Beitrag anzeigen

eddie11

Registriert seit: 8. Nov 2005
Ort: Zossen bei Berlin
236 Beiträge
 
Delphi XE8 Professional
 
#6

AW: Listview scrollen iOs

  Alt 18. Okt 2013, 07:56
ok, habs so gelöst:

Code:
procedure TForm1.Button77Click(Sender: TObject);
var i: integer;
    Scrollbar: TScrollBar;
begin
  for i := 0 to ListView1.ControlsCount-1 do begin
    if ListView1.Controls[i] is TScrollBar then begin
      Scrollbar := TScrollBar(ListView1.Controls[i]);
    end;
  end;
  if Scrollbar.Height+ListView1.ScrollViewPos=Scrollbar.ValueRange.Max then
    unten := true // hier muss dann was gemacht werden

end;
Der Hinweis von bezüglich "ScrollviewPos" hat den richtigen Anstoss gegeben, Danke
Edgar Leifeld
Liebe Grüße aus Zossen bei Berlin

Die Kontramedüse ist verdrupelt!!!
  Mit Zitat antworten Zitat