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