transparentes Fenster vor fremdem Fenster

[simjoh]

Hi,

bin am verzweifeln. Ich hab ein Fenster mit folgendem Trick aus dem SwissDelphiCenter transparent gemacht und einen Button draufgelegt:

...ein transparentes Formular ohne Code erzeugen (D6)?
Autor: JodeQa

{
this is very simple, actually .. you don't need to coding any single line
practically, you just have to set 3 TForm properties
1. Color
2. TransparentColorValue
3. TransparentColor

For example, just put 1 TButton on the form, then set the form properties :
1. Color := clBlue
2. TransparentColorValue := clBlue
3. TransparentColor := True

better set the TForm.BorderStyle to bsNone
RUN .. you'll see only TButton

logically, you must set TForm.Color same with TForm.TransparentColorValue
}

Nun legt ich dieses Fenster über eine fremde Anwendung. Klappt auch super, nur verschwindet das transparente Fenster immer hinter der fremden Anwendung, wenn ich auf die fremde Anwendung klicke. Hat jemand einen Tipp, wie ich über ein frendes Fenster ein Fenster legen kann, auf dem ein Button ist, wenn ich auf die fremde Anwendung klicke, soll mein Fenster aber vorne bleiben. Mit fsStayOnTop gehts nicht, auch nicht mit EnumWindows:

Delphi-Quellcode:

  WinPos.hForm := MyHandle; //HWND des fremden Fensters;
  WinPos.hFindWin :=handle;//Handle des fremden Fensters
  WinPos.hFirstWin := HWND_TOPMOST;
  EnumWindows(@SetWinPos, integer(@WinPos));

function SetWinPos(hWnd: THandle; WinPos: PWinPos): Boolean; stdcall;
begin
  Result := true;
  if IsWindowVisible(hWnd)  then
  begin
    if hWnd = WinPos^.hFindWin then
    begin
      SetWindowPos(WinPos^.hForm, WinPos^.hFirstWin, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
      Result := false;
    end;
    WinPos^.hFirstWin := hWnd;
  end;
end;

Hat da jemand einen guten Tipp?

Danke.

Herzliche Grüße
Markus