...die Position vom aktiven Windows Fenster auslesen?

Autor: Marco Lange

Kategorie: System

procedure TForm1.Button1Click(Sender: TObject);
var
  
hWindow: HWnd;
  r:       TRect;
begin
  
hWindow := GetForegroundWindow;
  GetWindowRect(hWindow, r);
  Memo1.Clear;
  with Memo1.Lines do
  begin
    
Add('Top   : ' + IntToStr(r.Top));
    Add('Left  : ' + IntToStr(r.Left));
    Add('Bottom: ' + IntToStr(r.Bottom));
    Add('Right : ' + IntToStr(r.Right));
  end;
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base