Platzieren von Formular

Hallo,

ich melde mich mal wieder!

Ich möchte mein Formular rechts über der Taskleiste platzieren. Die erforderlichen Werte, sprich Höhe der Taskleiste und Formular usw., habe ich schon. Mir fehlt nur noch eine Formel, wie ich herausfinden kann, bis auf welche Pixelzahl das Formular heraufgeschoben werden muss, das es Pixelgenau mit der Taskleiste abschließt.

Hier mal mein bisheriger Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm6.TimerTimer(Sender: TObject);

var

  tl: HWnd;

  rah: TRect;

begin

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

  GetWindowRect(tl, rah);

  Form6.Left := Screen.Width - Form6.Width - 5;

  Form6.Top := Screen.Height - h;

  h := h+10; //Pixelanzahl, die nach oben gehen

  if Form6.Top >= Form6.Height+rah.Top then Timer.Enabled := false;

end;

Die Prozedur ist eine Timerprozedur. die Variable h ist eine globale Variable! Damit erreiche ich einen Effekt, dass das Formular von unten eingeschoben wird.

Gruß kabuco

Platzieren von Formular

Platzieren von Formular

Forumregeln