Delphi-PRAXiS - Delphi Positionsdaten der Taskleiste

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Library: Windows API / MS.NET Framework API (https://www.delphipraxis.net/20-library-windows-api-ms-net-framework-api/)

- - Delphi Positionsdaten der Taskleiste (https://www.delphipraxis.net/982-positionsdaten-der-taskleiste.html)

Daniel B

4. Okt 2002 11:47

Positionsdaten der Taskleiste

Code:

			procedure TForm1.Button1Click(Sender: TObject);

var

  tl: HWnd;

  rah: TRect;

begin

  tl := FindWindow('Shell_TrayWnd', nil);

  GetWindowRect(tl, rah);

  tl := FindWindow('Shell_TrayWnd', nil);

  GetWindowRect(tl, rah);

  ShowMessage('Die Taskleiste fängt Links bei ' + IntToStr(rah.Left) +

              ' an, geht Rechts bis ' + IntToStr(rah.Right) +

              ', von Oben aus gesehen, fängt sie bei ' + IntToStr(rah.Top) +

              ' an und endet Unten bei ' + IntToStr(rah.Bottom));

end;

Grüsse, Daniel :hi:

Alle Zeitangaben in WEZ +1. Es ist jetzt 09:06 Uhr.