Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Klicken auf Desktop verhindern (https://www.delphipraxis.net/174329-klicken-auf-desktop-verhindern.html)

Der schöne Günther 17. Apr 2013 16:18

Klicken auf Desktop verhindern
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ich möchte verhindern, dass jemand auf die Desktop-Icons klickt. Das soll grafisch auch gerne noch durch ein Abdunkeln deutlich gemacht werden.

Das tue ich:
Ich nehme eine Form mit folgenden Eigenschaften:
  • BorderStyle = bsNone
  • WindowState = wsMaximized
  • AlphaBlend = True, AlphaBlendValue = 123

Zusätzlich überschreibe ich die
Delphi-Quellcode:
CreateParams
-Methode und stelle ein:
Delphi-Quellcode:
   Params.WndParent := GetDesktopWindow;
   Params.Style := WS_CHILD;
Bislang hat es auf dem Entwicklungsrechner (Win7/64) auch bestens geklappt: Der Desktop wird abgedunkelt und ich kann nicht mehr drauf klicken.

Auf Windows XP ist der Abdunkel-Effekt aber über allen Fenstern drüber, anstatt dahinter! Im Anhang sieht man es, hier habe ich die Form extra mal nicht auf wsMaximized gestellt.

Was läuft hier falsch? Ich habe (recht ziellos) mit verschiedenen Parametern für
Delphi-Quellcode:
Params.Style
und
Delphi-Quellcode:
Params.ExStyle
herumgespielt, aber ohne Erfolg. Was kann ich tun?

Der schöne Günther 17. Apr 2013 17:09

AW: Klicken auf Desktop verhindern
 
Hallo-

Ich konnte jetzt doch alles umsetzen wie ich wollte.

Die Form zu einem ChildWindow des Desktops zu machen war wohl generell eine schlechte Idee (siehe auch hier (SO)).

Das einzige was ich jetzt noch tue ist:
  • In der CreateParams-Methode der Form WndParent auf 0 setzen
  • Im FormCreate das Fenster deaktivieren: EnableWindow(self.Handle, False)

So ist es ja eigentlich noch einfacher. Gerne hätte ich jetzt noch den Mauszeiger auf etwas anderes geändert wenn ich mit der Maus über das dunkeldurchsitige Fenster fahre aber man kann wohl nicht alles haben :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz