Durchklickbares fenster immer im fordergrund anzeigen?

[IIIMADDINIII]

hallo,

ich möchte ein durchklickbares fenster immer im vordergrund angezeigt haben. ich glaube dass sich diese beiden eigenschaften nicht vertragen, weil ich schon einige sachen ausprobiert habe aber nicht funcen. der cod zum durchklickbar machen ist der hier:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_EXSTYLE, getWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT or WS_EX_LAYERED);
end;

maddin

[himitsu]

Ich hab jetzt zwar keine Ahnung, aber vor 2-3 Jahren gab's hier einige Programme bezüglich Schneeflocken auf dem Monitor und da war auch eines (von den 2-3 Programmen), welches nette Weise durchklickbar war (also die vielen kleinen Sterne/Fensterchen)

[turboPASCAL]

Och, das geht schon.

Aber man muss die Reihenfolge beachten.

Delphi-Quellcode:

procedure TForm.FormCreate...
begin
  AlphaBlend := true;  // hier wird das Fenster auf WS_EX_LAYERED gesetzt
  AlphaBlendValue := 128;

  // BorderStyle := bsNone;
  // windowState := wsMaximized;

  FormStyle := fsStayOnTop;
  SetWindowLong(Handle, GWL_EXSTYLE, getWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
end;

[IIIMADDINIII]

leider muss ich euch enteuschen.

zwei fehler gibt es.

1. ich möchte die anwendung über alle fenster (auch die von den anderen anwendungen) überdecken

2 wenn ich das mit dem code mache und die reinfolge ändere hat sich auch nichts geändert

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE); ich bitte um hilfe