ClientHeight, ClientWidth, Top und Left eines externen Fensters ermitteln

[Helmi]

Hallo,

ist es möglich von einem externen Fenster "ClientWidth",
"ClientHeight", "Top" und "Left" auszulesen?
Und falls ja, wie.

[Helmi]

Wieso fallen mir die Antworten immer erst ein, nachdem ich nen Thread erstellt habe?

Delphi-Quellcode:

var
  r: TRect;

begin
  GetWindowRect(h, r);
end;

[Aphton]

Nja damit kriegste aber ned ClientWidth/ClientHeight sondern Width/Height (Right-Left, Bottom-Top)

[Luckie]

Und dann kann man die Rahmendicke abziehen, die man über GetSystemmetrics abfragen kann.

[Amateurprofi]

Zitat:

Zitat von Luckie (Beitrag 1212217)

Und dann kann man die Rahmendicke abziehen, die man über GetSystemmetrics abfragen kann.

Und was ist, wenn das Fenster eine Caption hat, und vielleicht auch ein Menu?

Ich denke

Delphi-Quellcode:

GetClientRect

wäre sinnvoller.

[Luckie]

Kann man auch alles abfragen. Aber wenn es dafür eine schon fertige Funktion gibt, ist es natürlich einfacher diese zu benutzen.

[Helmi]

Zitat:

Zitat von Luckie (Beitrag 1212221)

Kann man auch alles abfragen. Aber wenn es dafür eine schon fertige Funktion gibt, ist es natürlich einfacher diese zu benutzen.

Nur leider brauch ich das für ein externes Fenster - nicht für eine eigene Form...


Mit GetWindowRect ermittle ich ja das Rect des (sichtbaren) Fensters. Aber gibt es auch die Möglichkeit das Rect eines Fensters zu ermitteln, das größer ist, als der sichtbare Bereich, also mit Scrollbalken?

Wie gesagt, ich bin in einem externen Fenster

[Der.Kaktus]

fremdes Fenster ist doch nicht anders..nur HWnd suchen und los gehts ;-)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    hNotepadWindow: HWND;
    lpr:TRect;
begin
    hNotepadWindow := FindWindow('notepad', nil);
    getwindowrect(hNotepadWindow,lpr);
end;

[Helmi]

Zitat:

Zitat von Der.Kaktus (Beitrag 1212251)

fremdes Fenster ist doch nicht anders..nur HWnd suchen und los gehts ;-)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    hNotepadWindow: HWND;
    lpr:TRect;
begin
    hNotepadWindow := FindWindow('notepad', nil);
    getwindowrect(hNotepadWindow,lpr);
end;

das hatte ich ja selbst schon rausgefunden (siehe Post #2)

[Bummi]

Delphi-Quellcode:

var
    hand: HWND;
    WndRect,ClntRect:TRect;
begin
    hand := FindWindow('notepad', nil);
      if handle <> 0 then
        begin
          GetWindowRect(hand,WndRect);
          Windows.GetClientRect(hand,ClntRect);
          Showmessage(Format('Window Top: %d Left: %d Right: %d Bottom %d'#13#10
                             +'Client Top: %d Left: %d Right: %d Bottom %d'#13#10
                             ,[WndRect.Top,WndRect.Left,WndRect.Right,WndRect.Bottom
                             , ClntRect.Top,ClntRect.Left,ClntRect.Right,ClntRect.Bottom]));
        end;
end;

[Helmi]

Zitat:

Zitat von Bummi (Beitrag 1212260)

Delphi-Quellcode:

var
    hand: HWND;
    WndRect,ClntRect:TRect;
begin
    hand := FindWindow('notepad', nil);
      if handle <> 0 then
        begin
          GetWindowRect(hand,WndRect);
          Windows.GetClientRect(hand,ClntRect);
          Showmessage(Format('Window Top: %d Left: %d Right: %d Bottom %d'#13#10
                             +'Client Top: %d Left: %d Right: %d Bottom %d'#13#10
                             ,[WndRect.Top,WndRect.Left,WndRect.Right,WndRect.Bottom
                             , ClntRect.Top,ClntRect.Left,ClntRect.Right,ClntRect.Bottom]));
        end;
end;

Danke für den Code.
Ich hab aber leider noch eine Frage:
Mit dem oberen Code kann ich die sichtbare Größe des externen Fensters auslesen.
Wenn aber das Fenster Scrollbars hat, dann ist ja die sichtbare Größe kleiner als die maximale Größe des Fensters.
Wie kann ich denn die komplette (maximale) Größe des externen Fensters auslesen?

[Helmi]

*ganz nach oben häng*

[CTest]

GetScrollRange

[Helmi]

Danke!

Aber mein Problem besteht weiter - das Fenster wird sichtlich nicht gescrollt
auch ein neuzeichnen bringt nichts