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