[nonVCL] Screensaver mit Preview (Template)

[turboPASCAL]

Zitat:

Zitat von Sunlight7

Im Explorer rechte Maustaste->Konfigurieren hat dann keine Parameter...

Hm, das hate ich gar nicht getested, hatte einfach angenommen das der "C"-Parameter übernommen wird.

Habe nun mal alle Punkte ausgebessert. Denk ich... :mrgreen:

[xZise]

Zitat:

Zitat von Sunlight7

Zitat:

Zitat von xZise

Sei wann macht man das so?

Seit Win95 ist das schon so :wink:

DSDT

[Sunlight7]

Und was les ich da? So über habs 2 Fehler...
Nur weil se vergessen haben, es zu erwähnen, das auch kein Parameter kommen kann?
Und Application.Run sollte im Config Modus nicht aufgerufen werden.
Abgesehen davon hab ich die Application.CreateForm in if Abfragen, ohne das Delphi meckert.

Zitat:

Zitat von turboPASCAL

Habe nun mal alle Punkte ausgebessert. Denk ich... :mrgreen:

Schön, schade eigentlich, ich hatte meinen schon fertig :mrgreen:

Edit: Schön, das ich net der einzige bin, der solche Probleme hatte:
Dein Screen Saver läuft 2 Sekunden und schließt sich dann wieder, mag wohl dran liegen, das diese dämlichen Non-Kugel Mäuse WM_MOUSEMOVEs senden, ohne das sich die Cursorposition ändert. :roll:
Ich hab das mit Get & SetCursorPos umgangen, einfach prüfen, ob sich der Cursor um mehr als 10 Pixel bewegt hat :wink:

Das StayOnTop :gruebel: funkt net, versteh' ich auch net, is aber so :shock:

[turboPASCAL]

Ja, das mit der Maus, desswegen hatt ich dem Kram rausgelassen. Meine Maus ist angeleint zuck aber hier und da mal an der Leine. Desderwegen schalted sich dan der evtuell laufende screensaver ab und zu aus.
Habe es nur mal auf die Schnelle eingebaut. Wie man sieht. ;)

Nunja...

Mit dem "StayOnTop" muss mann wohl härtere Massnahmen ergreifen ( SetWindowPos(); etc. ), mal sehen.

Happy Screenaving... :snowball:

[Sunlight7]

Zitat:

Zitat von turboPASCAL

Mit dem "StayOnTop" muss mann wohl härtere Massnahmen ergreifen ( SetWindowPos(); etc. ), mal sehen.

Nö, nur richtig machen :-P
Dur übergibst ein Extended Flag, in den nicht Extended Parametern der nicht nicht Extended Funktion :wink:
Mach ein CreateWindowEx draus und schreib als 1. Parameter WS_EX_TOPMOST, dann klappts :-D http://www.delphipraxis.net/images/s...schneeball.gif

Edit anhängsel:

[turboPASCAL]

Zitat:

Zitat von Sunlight7

Mach ein CreateWindowEx draus und schreib als 1. Parameter WS_EX_TOPMOST, dann klappts :-D :snowball:

Hab i scho. :P

[Sunlight7]

Den Mouse Bug auch?http://www.delphipraxis.net/images/s...schneeball.gif

[turboPASCAL]

Nö, fällt mir noch nix schöhnes ein.

[Sunlight7]

Haste vielleicht net gesehen, oben hatt' ich die Komplettlösung angehängt :wink:

[turboPASCAL]

:gruebel: Ja, nein das hatte ich wohl bei unserem derzeit superschnellen DP-Server übersehen.

Das GestMousePos(); wollt ich nicht, es geht auch über den WM_MOUSEMOVE Parameter.

Code:

WM_MOUSEMOVE fwKeys = wParam; 
  xPos = LOWORD(lParam); 
  yPos = HIWORD(lParam);

Aber dennoch danke. :thumb: