Fenster an Bildschirmrand / Taskleiste andocken mit nonVCL

[idontwantaname]

Hallo :hi:

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

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

[Ultimator]

Komisch, bei mir dockt es :-|

[MagicAndre1981]

Bei mir geht es aber auch nicht!

Ich habe WinXP MCE 2005.

MfG
André

[Jarmen_Kell]

Da ihr vermutlich Win benutzt: Vllt. hats was mit dem "TaskLeiste Fixieren" bzw nicht fixieren zu tun?!?

[MasterC]

In der VCL nennt sich das ganze ScreenSnap, bei mir geht das jedenfalls.

[schuetze09]

Bei mir geht es auch (Win2000 SP4)

[PierreB]

Hm, ich hab auch Win2000 SP4 aber es dockt nicht an. :gruebel:

[idontwantaname]

Äm, jetzt kenn ich mich nicht mehr aus :gruebel:

ich hab Win XP Home ohne SP und geht problemlos. Findet ihr im Quellcode Fehler ??

[wfoertsch]

Hi,
bei mir gehts...


Windows XP SP2

Taskleistenstellungen:
Fixieren Aus
Auto. Ausblenden Aus
Immer im Vodergrund An
Ähnliche Elemente gr. Aus
Schnellstartleiste An


gruss
Wolle

[MisterNiceGuy]

Bei mir gehts auch, WinXP SP1

[LoL]

Bei mir gehts Win2k SP4

[mirage228]

Bei mir gehts auch

Win XP Prof. SP2

Taskleiste:
Fixieren -> Ja

mfG
mirage228

[idontwantaname]

Hab es jetzt noch mal getestet:

Fixeren aus / ein: Geht
Automatisch ausblenden aus / ein: Geht

Also, ich kann echt nicht nachvollziehen, wieso es nicht geht.
Habt ihr, die bei denen es nicht geht, mehrere Monitore ??

[PierreB]

Nein, leider nur einen.

[Matze]

Bei mir WinXP SP1 geht es auch nicht.

Komisch, ich wüsste auch nicht, an was das liegen kann.

[DP-Maintenance]

Dieses Thema wurde von "Chakotay1308" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Windows API" verschoben.
Beitrag befindet sich nun hier in der Code-Library.