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 von Luckie:

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 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 von Luckie:

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 von 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;

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;