Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#2

Re: Transparente Main Form auf Desktop bringen

  Alt 31. Aug 2008, 14:22
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);
Thomas
  Mit Zitat antworten Zitat