externes Fenster um einen Pixelwert scrollen?

[Helmi]

Hallo,

mittels

Delphi-Quellcode:

  h := GetForeGroundWindow;

  If h <> 0 then
    begin
      SendMessage(h, WM_VSCROLL, SB_PAGEUP, 0);
    end;

kann ich ein externes Fenster scrollen.
Nur gibt es eine Möglichkeit ein Fenster um einen bestimmten Pixelwert zu scrollen?

[Bummi]

Delphi-Quellcode:

var
 h:THandle;
begin
 h := GetForeGroundWindow;
  If h <> 0 then
    begin
      SetScrollPos(h, SB_VERT, GetScrollPos(h,SB_VERT) - 1, true);
    end;
end;

[Helmi]

Danke! - genau das was ich brauche

Aber irgendwie scheinen sich die Scrollbalken nicht dabei zu bewegen

Wenn ich mir den Wert von GetScrollPos anschaue, dann seh ich, dass er sich reduziert,
aber die Scrollbalken bewegen sich nicht

[Helmi]

*oben aufhäng*

[Medium]

Auch nicht, wenn du das Fenster mal anweist, sich komplett neu zu zeichnen?

[Helmi]

Zitat von Medium:

Auch nicht, wenn du das Fenster mal anweist, sich komplett neu zu zeichnen?

bringt leider nichts

Hab es so gemacht:

Delphi-Quellcode:

  If h <> 0 then
    begin
      SetScrollPos(h, SB_VERT, GetScrollPos(h,SB_VERT) - 111, true);
      SendMessage(h, WM_PAINT, 0, 0);
    end;

Wobei SetScrollPos durch den 3. Parameter das Fenster schon zum Neuzeichnen anweist (laut Doku)

[Helmi]

*nochmal nach oben häng*

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

[Helmi]

Zitat von Volker Z.:

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

Danke!
Das hilft mir auf alle Fälle weiter!

Aber eines noch:
müsste es nicht eher
if i.nPage + i.nPos >= i.nMax then anstatt if i.nPage + i.nPos = i.nMax then lauten?
Bei meinen Tests kam bei der Addition immer 1 mehr raus als nMax ergibt