Fenster an Bildschirmrand / Taskleiste andocken mit nonVCL

[idontwantaname]

Hallo

Man findet in diesem Beitrag der Cody-Library den Quellcode, um ein Fenster an den Bildschirmrand bzw. an dei Taskleiste andocken zu lassen. Ich habe diesen Code nun in nonVCL umgesetzt.

Delphi-Quellcode:

function WndProc(WndHWND: HWnd; uMsg: UInt; wParam: WParam; lParam: LParam): LResult; stdcall;
const
  DISTANCE = 20;
var
  MyWndPos: PWindowPos;
  WorkAreaRect: TRect;
begin
   Result := 0;

   case uMsg of
    WM_WINDOWPOSCHANGING: begin
      // Nötige Informationen holen
      SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkAreaRect, 0);
      MyWndPos := PWINDOWPOS(lParam);

      // Oben und Unten
      if (MyWndPos.y <= DISTANCE) and
         (MyWndPos.y >= -DISTANCE) then
           MyWndPos.y := 0;
      if (MyWndPos.y + MyWndPos.cy > (WorkAreaRect.Bottom - DISTANCE)) and
         (MyWndPos.y + MyWndPos.cy < (WorkAreaRect.Bottom + DISTANCE)) then
           MyWndPos.y := WorkAreaRect.Bottom - MyWndPos.cy;

      // Links und Rechts
      if (MyWndPos.x <= DISTANCE) and
         (MyWndPos.x >= -DISTANCE) then
           MyWndPos.x := 0;
      if (MyWndPos.x + MyWndPos.cx > (WorkAreaRect.Right - DISTANCE)) and
         (MyWndPos.x + MyWndPos.cx < (WorkAreaRect.Right + DISTANCE)) then
           MyWndPos.x := WorkAreaRect.Right - MyWndPos.cx;
    end;

    WM_DESTROY: begin
      PostQuitMessage(0);
    end;

     else Result := DefWindowProc(WndHWND, uMsg, wParam, lParam);
   end;
end;

[Luckie]

Bei mir wird da nichts angedockt. Oder verstehe ich den Sinn nicht so gnaz?

[idontwantaname]

hm, komisch, bei mir geht es

hab oben im Quellcode einen Fehler gemacht, habs aber schon geändert

[Luckie]

Screenshot anbei.

[idontwantaname]

du kannst es schon unter die taskleiste schieben, nur wenn du in die nähe der taskleiste kommst (bzw. bildschirmrand), um genau zu sein 20 pixeln, dann "dockt" das fenster eben an

[Luckie]

Sorry, da dockt nichts an.

[idontwantaname]

hm, das verstehe ichjetzt echt nicht

warten wir einfach auf die "testergebnisse" der anderen, dann sehen wir weiter

[idontwantaname]

*pusch*

@luckie: im anhang ist meine compilierte exe, versuchs damit

[Luckie]

Auch damit geht es nicht.

[Thorben77]

Bei mir dockt da auch nix...