Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Tastatur/Maus-Focus in transparenter Form behalten ?
Autor: Wölfi
Datum: 11.06.16 22:58
Hallo BlackBox, Sie haben recht. In der Zwischenzeit habe ich eine andere Routine für die Transparenz, in der alles funktioniert: Sub FormTransparent1(Form As Object) Form.BackColor = vbCyan SetWindowLong Form.hwnd, -20, GetWindowLong(Form.hwnd, -20) Or &H80000 SetLayeredWindowAttributes Form.hwnd, vbCyan, 0&, &H1 End Sub Die nachfolgende Routine macht die Form nicht nur transparent, sondern der Durchgriff ist damit möglich. Ja man lernt nie aus. Aber vielen Dank für die schnelle Reaktion. Sub FormTransparent2(Form As Object) Dim hClient&, Client As RECT, hFrame&, Frame As RECT, TL As POINTAPI, BR As POINTAPI GetWindowRect Form.hwnd, Frame GetClientRect Form.hwnd, Client TL.x = Frame.Left TL.y = Frame.Top BR.x = Frame.Right BR.y = Frame.Bottom ScreenToClient Form.hwnd, TL ScreenToClient Form.hwnd, BR Frame.Left = TL.x Frame.Top = TL.y Frame.Right = BR.x Frame.Bottom = BR.y Client.Left = Abs(Frame.Left) Client.Top = Abs(Frame.Top) Client.Right = Client.Right + Abs(Frame.Left) Client.Bottom = Client.Bottom + Abs(Frame.Top) Frame.Right = Frame.Right + Abs(Frame.Left) Frame.Bottom = Frame.Bottom + Abs(Frame.Top) Frame.Top = 0 Frame.Left = 0 hClient = CreateRectRgn(Client.Left, Client.Top, Client.Right, Client.Bottom) hFrame = CreateRectRgn(Frame.Left, Frame.Top, Frame.Right, Frame.Bottom) CombineRgn hFrame, hClient, hFrame, 3 SetWindowRgn Form.hwnd, hFrame, True End Sub

Tastatur/Maus-Focus in transparenter Form behalten ?	1.665	Wölfi	11.06.16 16:26
Re: Tastatur/Maus-Focus in transparenter Form behalten ?	817	Blackbox	11.06.16 19:03
Re: Tastatur/Maus-Focus in transparenter Form behalten ?	902	Wölfi	11.06.16 20:07
Re: Tastatur/Maus-Focus in transparenter Form behalten ?	811	Blackbox	11.06.16 21:27
Re: Tastatur/Maus-Focus in transparenter Form behalten ?	802	Wölfi	11.06.16 22:58
SetWindowRgn() dachte ich mir doch	769	Blackbox	12.06.16 09:43

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen