externes Fenster um einen Pixelwert scrollen?

[Volker Z.]

Hallo,

hilft Dir vielleicht folgendes weiter (nur am Beispiel Inhalt nach unten scrollen)?:

Delphi-Quellcode:

procedure TForm1.ScrollDown (const Delta : Integer);
var
  h : HWND;
  i : TScrollInfo;
begin
  h := GetForegroundWindow;
  if h <> 0 then
    begin
      FillChar (i, SizeOf (TScrollInfo), 0);
      i.cbSize := SizeOf (TScrollInfo);
      i.fMask  := SIF_ALL;
      if not GetScrollInfo (h, SB_VERT, i) then
        raise Exception.Create ('Fürchterlich martialische Fehlermeldung');

      if i.nPage + i.nPos = i.nMax then
        begin
          // TODO: Wir sind am Ende des Inhalts und jetzt?
          // Nachfolgender Code sollte eventuell noch ausgeführt werden
        end;

      i.fMask := SIF_POS;
      i.nPos  := i.nPos + Delta;
      ScrollWindow (h, 0, -Delta, nil, nil);
      SetScrollInfo (h, SB_VERT, i, True)
    end
end

Gruß