Transparente Main Form auf Desktop bringen

[sibbl]

Hallo,

Ich habe eine transparente Main Form und möchte diese auf den Desktop bringen (wenns geht hinter die Icons, davor ist aber auch nicht schlimm). D.h. sie soll dann von jedem Fenster überdeckt werden - eben wie als würde sie zum Hintergrundbild gehören (below all).

Ok hab ich mir gedacht, nimmste FindWindow, suchst den Desktop und setzt die hwnd als parentwindow deiner Form. Hat auch geklappt, nur ist dann die Transparenz weg (und es ist vor den Icons ... aber wie gesagt, nit schlimm).

Habt ihr noch ein paar Tips, wie ich das noch realisieren kann (Delphi 2007)?



Bin für jede Antwort dankbar!

mfG
Sebastian

[toms]

Hallo,

Ich hab's unter WinXP wie folgt ausprobiert und die Transparenz ist geblieben.

Delphi-Quellcode:

procedure SetWinToDesktop(Handle: HWND);
var
  wndDesktop: HWND;
begin
  wndDesktop := FindWindow('Progman','Program Manager');
  if wndDesktop <> 0 then
  begin
     Windows.SetParent(Handle, wndDesktop)
  end;
end;

// Aufruf:
SetWinToDesktop(Self.Handle);

[sibbl]

http://sibbl.pytalhost.de/pix/Window...0699129a28.png

hm ne sieht leider nich so erfolgreich aus :( Aber danke dir für die Antwort!

[toms]

Dem Screenshot kann man aber nicht entnehmen, um was für ein OS sich handelt...

[sibbl]

Sorry, es handelt sich um Vista. Liegt vielleicht daran, dass ich einen anderen Code für die Transparenz nutze, als du ...


EDIT: Unter XP gehts komischerweise :shock: Ich kenn mich zwar mit der Programmierung von Vista gut aus, aber was ist da bei Vista anders als bei XP?? Ich führe es als Administrator aus und es hat volle Rechte

EDIT2: Unter Vista mit deaktiviertem Aero gehts. Liegt das daran, dass im Aero-Modus alles mit DX9 gerendert wird, auch wenns GDI+ ist?

[sibbl]

kann das hier evtl. jemand auf Delphi beziehen? :roll: