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