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

[simjoh]

Ach so,

mit

Delphi-Quellcode:

    SetWindowPos(handle, HWND_TOPMOST, Left,Top,Width,Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

gehts auch nicht.

[Mazel]

Ich habe das eben mal genau so ausprobiert, aber bei mir funktioniert es mit fsStayOnTop. Die trans. Form bleibt trotz eines Klicks auf die fremde Form vorne.

[simjoh]

Ja, solange man nicht auf den Button klickt. Wenn man nach dem Buttonclick auf das fremde Fenster klickt, verschwindet der Button hinter die fremde Form.

[simjoh]

äh, ... hinter der fremden Form.

[Mazel]

Also ich kann auf den Button klicken so oft ich will. Der Button bzw. die trans. Form bleibt vorne.
Ich habe es genau so gemacht wie der Code beschreibt. Hast du noch irgendwelche andere Einstellungen vorgenommen?

[EDIT]
Was ich noch schreiben wollte: wenn du schnell noch was hinzuschreiben willst, aber vergessen hast, dann nutze den Edit-Button, damit kannst du 24 h nach dem Schreiben des Beitrags noch Änderungen vornehmen, anstatt einen nicht gerader sinnvollen Beitrag zu schreiben.
[/EDIT]

[simjoh]

Schickste mir bitte mal dein Projekt? Und: Danke für den Nachschreibtipp!!

[Mazel]

Hier ist mal das Projekt mit dem oben genannten Code bzw. der Beschreibung von SwissDelphiCenter.

[bitsetter]

Hi,

geht es dir nur darum auf einem fremden Fenster einen Button zu haben, dann könntest du ihn doch gleich mit SetParent auf das Fenster setzen. Dann hättest du das Problem nicht.

[simjoh]

Ui, wie geht denn das?