Desktop einfärben | Problem mit form.show

[Nils_13]

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.

[MisterNiceGuy]

weiß nicht ob ich das jetzt richtig verstanden habe, aber pack doch einfach mal einen delay von 500ms vor den Aufruf.

[Nils_13]

Vor was ? Vor form.show oder vor das andere ?

[MisterNiceGuy]

Am Besten du postest das Programm einfach mal, dann kann man evtl sehen was du meinst.

P.S. Das CoolTrayIcon hat eine eigene Procedure um die Form anzuzeigen.

Cooltrayicon1.showmainform; So weit ich weiß. Du solltest also in dem Fall also lieber diesen Code verwenden.