Hi,
ich "färbe" den Desktop mit folgendem Code ein.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Minimize;
setWindowLong(
Handle, GWL_EXSTYLE,
getWindowLong(
Handle, GWL_EXSTYLE)
or WS_EX_TRANSPARENT
or WS_EX_LAYERED);
end;
procedure TForm1.FormClick(Sender: TObject);
begin
setWindowLong(
Handle, GWL_EXSTYLE,
getWindowLong(
Handle, GWL_EXSTYLE)
or WS_EX_TRANSPARENT
or WS_EX_LAYERED);
end;
Ich benutze CoolTrayIcon, damit ich alle Farben als ein Popup einblende. Das Problem dabei ist, dass die Form erst mit
form1.show
aufgerufen werden muss und die Anwendung also nicht in Tray ist und man in der Taskleiste noch den Namen der Anwendung sieht.
Kennt ihr eine Lösung, mit der man das Problem beheben kann.